/*


!
!  Dalton, a molecular electronic structure program
!  Copyright (C) The Dalton Authors (see AUTHORS file for details).
!
!  This program is free software; you can redistribute it and/or
!  modify it under the terms of the GNU Lesser General Public
!  License version 2.1 as published by the Free Software Foundation.
!
!  This program is distributed in the hope that it will be useful,
!  but WITHOUT ANY WARRANTY; without even the implied warranty of
!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
!  Lesser General Public License for more details.
!
!  If a copy of the GNU LGPL v2.1 was not distributed with this
!  code, you can obtain one at https://www.gnu.org/licenses/old-licenses/lgpl-2.1.en.html.
!

!

*/
/*-*-mode: C; c-indentation-style: "bsd"; c-basic-offset: 4; -*-*/
/* fun-hcth407p.c:

   REFERENCE: A. D. Boese, A. Chandra, J. M. L. Martin and D. Marx, J. Chem. Phys. 119, 5965 (2003)  

   Implemented by David Wilson (david.wilson@latrobe.edu.au) Jun 2005
   based on hcth407 functional implemented by Pawel Salek.

   Automatically generated code implementing HCTH407P functional and
   its derivatives. It is generated by func-codegen.pl being a part of
   a "Automatic code generation framework for analytical functional
   derivative evaluation", Pawel Salek, 2005

    This functional is connected by making following changes:
    1. add "extern Functional hcth407pFunctional;" to 'functionals.h'
    2. add "&hcth407pFunctional," to 'functionals.c'
    3. add "fun-hcth407p.c" to 'Makefile.am', 'Makefile.in' or 'Makefile'.

    This functional has been generated from following input:
    ------ cut here -------
xa: (grada/rhoa^(4/3));
xb: (gradb/rhob^(4/3));

pa: 1;
Aa: 0.016887;
a1a: 0.11125;
b1a: 10.357;
b2a: 3.6231;
b3a: 0.88026;
b4a: 0.49671;

pe: 1;
c0p: 0.031091;
a1p: 0.21370;
b1p: 7.5957;
b2p: 3.5876;
b3p: 1.6382;
b4p: 0.49294;

c0f: 0.01554500000;
a1f: 0.20548;
b1f: 14.1189;
b2f: 6.1977;
b3f: 3.3662;
b4f: 0.62517;

ccab: [0.73604,  3.0270, -10.075,  20.611,  -29.418];
ccaa: [0.80302, -1.0479,  4.9807, -12.890,   9.6446];
cx:   [1.08018, -0.4117,  2.4368,  1.3890,  -1.3529];

rs(r):= (3/(4*%PI*r))^(1/3);
z(ra,rb):= (ra-rb)/(ra+rb);
fz(v):= ((1+v)^(4/3) + (1-v)^(4/3) - 2)/(2*2^(1/3) - 2);

d2fz0: 1.709921;

Gc(r,A,a1,b1,b2,b3,b4,p):= -2*A*(1 + a1*r)
   *log(1 + 0.5/(A*(b1*sqrt(r) + b2*r + b3*r^(3/2) + b4*r^(p+1))));

Ac(x):= -Gc(x,Aa,a1a,b1a,b2a,b3a,b4a,pa);
EcP(x):= Gc(x,c0p,a1p,b1p,b2p,b3p,b4p,pe);
EcF(x):= Gc(x,c0f,a1f,b1f,b2f,b3f,b4f,pe);


EcLSDA(ra,rb):=(ra+rb)*(EcP(rs(ra+rb)) +
   Ac(rs(ra+rb))*fz(z(ra,rb))*(1-(z(ra,rb))^4)/d2fz0 +
   (EcF(rs(ra+rb))-EcP(rs(ra+rb)))*fz(z(ra,rb))*
   (z(ra,rb))^4);

EcabLSDA(ra,rb):= EcLSDA(ra,rb)-EcLSDA(ra,0)-EcLSDA(rb,0);

gcab: 0.006;
gcaa: 0.2;

cx0: -3/8*((16*3/%PI)^(1/3));
gx: 0.004;

Ucab(t):= gcab*t/(1+gcab*t);
Ucaa(t):= gcaa*t/(1+gcaa*t);

Gcab(t):= ccab[1] + ccab[2]*Ucab(t)   + ccab[3]*Ucab(t)^2 
                  + ccab[4]*Ucab(t)^3 + ccab[5]*Ucab(t)^4;

Gcaa(t):= ccaa[1] + ccaa[2]*Ucaa(t)   + ccaa[3]*Ucaa(t)^2 
                  + ccaa[4]*Ucaa(t)^3 + ccaa[5]*Ucaa(t)^4;

Ux(r):= gx*r/(1+gx*r);

ExLSDAa: (cx0*rhoa^(4/3));
ExLSDAb: (cx0*rhob^(4/3));

Gx(t):= cx[1] + cx[2]*Ux(t) + cx[3]*Ux(t)^2 + cx[4]*Ux(t)^3 + cx[5]*Ux(t)^4;

K(rhoa,grada,rhob,gradb,gradab):=
   EcabLSDA(rhoa,rhob)*Gcab(0.5*xa^2 + 0.5*xb^2)
 + ExLSDAa*Gx(xa^2) + EcLSDA(rhoa,0) * Gcaa(xa^2) +
 + ExLSDAb*Gx(xb^2) + EcLSDA(rhob,0) * Gcaa(xb^2);


    ------ cut here -------
*/

 
/* strictly conform to XOPEN ANSI C standard */
#if !defined(SYS_DEC)
/* XOPEN compliance is missing on old Tru64 4.0E Alphas and pow() prototype
 * is not specified. */
#define _XOPEN_SOURCE          500
#define _XOPEN_SOURCE_EXTENDED 1
#endif
#include <math.h>
#include <stddef.h>
#include "general.h"

#define __CVERSION__
 
#include "functionals.h"
 
/* INTERFACE PART */
static integer hcth407p_isgga(void) { return 1; } /* FIXME: detect! */
static integer hcth407p_read(const char *conf_line);
static real hcth407p_energy(const FunDensProp* dp);
static void hcth407p_first(FunFirstFuncDrv *ds,   real factor,
                         const FunDensProp* dp);
static void hcth407p_second(FunSecondFuncDrv *ds, real factor,
                          const FunDensProp* dp);
static void hcth407p_third(FunThirdFuncDrv *ds,   real factor,
                         const FunDensProp* dp);
static void hcth407p_fourth(FunFourthFuncDrv *ds,   real factor,
                          const FunDensProp* dp);
 
Functional HCTH407pFunctional = {
  "HCTH407p",       /* name */
  hcth407p_isgga,   /* gga-corrected */
   1,
  hcth407p_read,
  NULL,
  hcth407p_energy,
  hcth407p_first,
  hcth407p_second,
  hcth407p_third,
  hcth407p_fourth
};
 
/* IMPLEMENTATION PART */
static integer
hcth407p_read(const char *conf_line)
{
    fun_set_hf_weight(0);
    return 1;
}

static real
hcth407p_energy(const FunDensProp *dp)
{
    real res;
    real rhoa = dp->rhoa, rhob = dp->rhob;
    real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;

    real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
    real t11, t12, t13, t14, t15, t16, t17, t18;
    real t19, t20, t21, t22, t23, t24, t25, t26;
    real t27, t28, t29, t30, t31, t32, t33, t34;
    real t35, t36, t37, t38, t39, t40, t41, t42;
    real t43, t44, t45, t46, t47, t48, t49, t50;
    real t51, t52, t53, t54;

    t1 = pow(3.0,0.666666666666667);
    t2 = 1/pow(4.0,0.666666666666667);
    t3 = 1/pow(3.141592653589793,0.666666666666667);
    t4 = 1.732050807568877;
    t5 = 0.564189583547756;
    t6 = pow(3.0,0.333333333333333);
    t7 = 1/pow(4.0,0.333333333333333);
    t8 = 1/pow(3.141592653589793,0.333333333333333);
    t9 = 1/pow(rhoa,0.333333333333333);
    t10 = pow(2.0,0.333333333333333);
    t11 = 1/t10;
    t12 = pow(3.0,0.166666666666667);
    t13 = 1/pow(3.141592653589793,0.166666666666667);
    t14 = log(32.1646831778707/(0.62517*t1*t2*t3/pow(rhoa,
        0.666666666666667)+14.1189*t11*t12*t13/pow(rhoa,0.166666666666667)+
        1.6831*t4*t5/sqrt(rhoa)+6.1977*t6*t7*t8*t9)+1.0);
    t15 = pow(grada,8.0);
    t16 = pow(grada,2.0);
    t17 = 1/pow(rhoa,2.666666666666667);
    t18 = 0.2*t16*t17+1.0;
    t19 = 1/pow(rhoa,10.66666666666667);
    t20 = pow(grada,6.0);
    t21 = 1/pow(rhoa,8.0);
    t22 = pow(grada,4.0);
    t23 = 1/pow(rhoa,5.333333333333333);
    t24 = 0.20548*t6*t7*t8*t9+1.0;
    t25 = pow(6.0,0.333333333333333);
    t26 = 0.004*t16*t17+1.0;
    t27 = 1/pow(rhob,0.333333333333333);
    t28 = log(32.1646831778707/(0.62517*t1*t2*t3/pow(rhob,
        0.666666666666667)+14.1189*t11*t12*t13/pow(rhob,0.166666666666667)+
        1.6831*t4*t5/sqrt(rhob)+6.1977*t6*t7*t8*t27)+1.0);
    t29 = pow(gradb,8.0);
    t30 = pow(gradb,2.0);
    t31 = 1/pow(rhob,2.666666666666667);
    t32 = 0.2*t30*t31+1.0;
    t33 = 1/pow(rhob,10.66666666666667);
    t34 = pow(gradb,6.0);
    t35 = 1/pow(rhob,8.0);
    t36 = pow(gradb,4.0);
    t37 = 1/pow(rhob,5.333333333333333);
    t38 = 0.20548*t6*t7*t8*t27+1.0;
    t39 = 0.004*t30*t31+1.0;
    t40 = 0.5*t30*t31+0.5*t16*t17;
    t41 = 0.006*t40+1.0;
    t42 = rhob+rhoa;
    t43 = 1/pow(t42,0.333333333333333);
    t44 = 0.2137*t6*t7*t8*t43+1.0;
    t45 = 1/pow(t42,0.666666666666667);
    t46 = 1/sqrt(t42);
    t47 = 1/pow(t42,0.166666666666667);
    t48 = log(16.0818243221511/(7.5957*t11*t12*t13*t47+3.5876*
        t6*t7*t8*t43+0.8191*t4*t5*t46+0.49294*t1*t2*t3*t45)+1.0);
    t49 = 1/
        (2.0*t10-2.0);
    t50 = rhoa-1.0*rhob;
    t51 = pow(t50,4.0);
    t52 = 1/pow(t42,4.0);
    t53 = 1/t42;
    t54 = pow(t50*t53+1.0,1.333333333333333)+pow(1.0-1.0*
        t50*t53,1.333333333333333)-2.0;

   /* code */
    res = -0.75*t25*(-3.463424E-10*t29*t33/pow(t39,4.0)+8.8896E-8*
        t34*t35/pow(t39,3.0)+3.89888E-5*t36*t37/pow(t39,2.0)-0.0016468*
        t30*t31/t39+1.08018)*t8*pow(rhob,1.333333333333333)+(-3.8125728E-8*
        pow(t40,4.0)/pow(t41,4.0)+4.451976E-6*pow(t40,3.0)/pow(t41,
        3.0)-3.627E-4*pow(t40,2.0)/pow(t41,2.0)+0.018162*t40/t41+0.73604)*
        (0.03109*t28*t38*rhob+0.03109*t14*t24*rhoa+t42*(0.019751789702565*
        (0.11125*t6*t7*t8*t43+1.0)*log(29.60857464321668/(10.357*t11*
        t12*t13*t47+3.6231*t6*t7*t8*t43+0.44013*t4*t5*t46+0.49671*
        t1*t2*t3*t45)+1.0)*t49*(1.0-1.0*t51*t52)*t54+(0.062182*t44*
        t48-0.03109*(0.20548*t6*t7*t8*t43+1.0)*log(32.1646831778707/
        (14.1189*t11*t12*t13*t47+6.1977*t6*t7*t8*t43+1.6831*t4*t5*
        t46+0.62517*t1*t2*t3*t45)+1.0))*t49*t51*t52*t54-0.062182*t44*
        t48))-0.03109*t28*(0.199228*t36*t37/pow(t32,2.0)-0.10312*t34*
        t35/pow(t32,3.0)+0.01543136*t29*t33/pow(t32,4.0)-0.20958*t30*
        t31/t32+0.80302)*t38*rhob-0.75*t25*(-3.463424E-10*t15*t19/
        pow(t26,4.0)+8.8896E-8*t20*t21/pow(t26,3.0)+3.89888E-5*t22*
        t23/pow(t26,2.0)-0.0016468*t16*t17/t26+1.08018)*t8*pow(rhoa,
        1.333333333333333)-0.03109*t14*(0.199228*t22*t23/pow(t18,2.0)-
        0.10312*t20*t21/pow(t18,3.0)+0.01543136*t15*t19/pow(t18,4.0)-
        0.20958*t16*t17/t18+0.80302)*t24*rhoa;

    return res;
}

static void
hcth407p_first(FunFirstFuncDrv *ds, real factor, const FunDensProp *dp)
{
    real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
    real rhoa = dp->rhoa, rhob = dp->rhob;
    real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;

    real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
    real t11, t12, t13, t14, t15, t16, t17, t18;
    real t19, t20, t21, t22, t23, t24, t25, t26;
    real t27, t28, t29, t30, t31, t32, t33, t34;
    real t35, t36, t37, t38, t39, t40, t41, t42;
    real t43, t44, t45, t46, t47, t48, t49, t50;
    real t51, t52, t53, t54, t55, t56, t57, t58;
    real t59, t60, t61, t62, t63, t64, t65, t66;
    real t67, t68, t69, t70, t71, t72, t73, t74;
    real t75, t76, t77, t78, t79, t80, t81, t82;
    real t83, t84, t85, t86, t87, t88, t89, t90;
    real t91, t92, t93, t94, t95, t96, t97, t98;
    real t99, t100, t101, t102, t103, t104, t105;
    real t106, t107, t108, t109, t110, t111, t112;
    real t113, t114, t115, t116, t117, t118, t119;
    real t120, t121, t122, t123, t124, t125, t126;
    real t127, t128, t129, t130, t131, t132, t133;
    real t134, t135, t136, t137, t138, t139, t140;
    real t141, t142, t143, t144, t145, t146, t147;
    real t148, t149, t150, t151, t152, t153, t154;
    real t155, t156, t157, t158, t159, t160, t161;
    real t162, t163, t164, t165, t166;

    t1 = pow(3.0,0.333333333333333);
    t2 = 1/pow(4.0,0.333333333333333);
    t3 = 1/pow(3.141592653589793,0.333333333333333);
    t4 = pow(3.0,0.666666666666667);
    t5 = 1/pow(4.0,0.666666666666667);
    t6 = 1/pow(3.141592653589793,0.666666666666667);
    t7 = 1.732050807568877;
    t8 = 0.564189583547756;
    t9 = sqrt(rhoa);
    t10 = pow(rhoa,0.333333333333333);
    t11 = 1/t10;
    t12 = pow(2.0,0.333333333333333);
    t13 = 1/t12;
    t14 = pow(3.0,0.166666666666667);
    t15 = 1/pow(3.141592653589793,0.166666666666667);
    t16 = 0.62517*t4*t5*t6/pow(rhoa,0.666666666666667)+14.1189*
        t13*t14*t15/pow(rhoa,0.166666666666667)+1.6831*t7*t8/t9+6.1977*
        t1*t2*t3*t11;
    t17 = 32.1646831778707/t16+1.0;
    t18 = log(t17);
    t19 = pow(grada,8.0);
    t20 = pow(grada,2.0);
    t21 = 1/pow(rhoa,2.666666666666667);
    t22 = 0.2*t20*t21+1.0;
    t23 = 1/pow(t22,4.0);
    t24 = 1/pow(rhoa,10.66666666666667);
    t25 = pow(grada,6.0);
    t26 = 1/pow(t22,3.0);
    t27 = 1/pow(rhoa,8.0);
    t28 = pow(grada,4.0);
    t29 = 1/pow(t22,2.0);
    t30 = 1/pow(rhoa,5.333333333333333);
    t31 = 1/t22;
    t32 = -0.20958*t20*t31*t21+0.199228*t28*t29*t30-0.10312*
        t25*t26*t27+0.01543136*t19*t23*t24+0.80302;
    t33 = 0.20548*t1*t2*t3*t11+1.0;
    t34 = pow(6.0,0.333333333333333);
    t35 = 0.004*t20*t21+1.0;
    t36 = 1/pow(t35,4.0);
    t37 = 1/pow(t35,3.0);
    t38 = 1/pow(t35,2.0);
    t39 = 1/t35;
    t40 = pow(grada,10.0);
    t41 = 1/pow(t22,5.0);
    t42 = 1/pow(rhoa,14.33333333333333);
    t43 = 1/pow(rhoa,11.66666666666667);
    t44 = 1/pow(rhoa,9.0);
    t45 = 1/pow(rhoa,6.333333333333333);
    t46 = 1/pow(rhoa,3.666666666666667);
    t47 = 1/t17;
    t48 = pow(rhoa,1.333333333333333);
    t49 = -0.41678*t4*t5*t6/pow(rhoa,1.666666666666667)-2.35315*
        t13*t14*t15/pow(rhoa,1.166666666666667)-0.84155*t7*t8/pow(t9,
        3.0)-2.0659*t1*t2*t3/t48;
    t50 = 1/pow(t16,2.0);
    t51 = 1/pow(t35,5.0);
    t52 = pow(gradb,2.0);
    t53 = 1/pow(rhob,2.666666666666667);
    t54 = 0.5*t52*t53+0.5*t20*t21;
    t55 = pow(t54,4.0);
    t56 = 0.006*t54+1.0;
    t57 = 1/pow(t56,4.0);
    t58 = pow(t54,3.0);
    t59 = 1/pow(t56,3.0);
    t60 = pow(t54,2.0);
    t61 = 1/pow(t56,2.0);
    t62 = 1/t56;
    t63 = 0.018162*t54*t62-3.627E-4*t60*t61+4.451976E-6*t58*
        t59-3.8125728E-8*t55*t57+0.73604;
    t64 = rhob+rhoa;
    t65 = 1/pow(t64,0.333333333333333);
    t66 = 0.2137*t1*t2*t3*t65+1.0;
    t67 = 1/pow(t64,0.666666666666667);
    t68 = sqrt(t64);
    t69 = 1/t68;
    t70 = 1/pow(t64,0.166666666666667);
    t71 = 7.5957*t13*t14*t15*t70+3.5876*t1*t2*t3*t65+0.8191*
        t7*t8*t69+0.49294*t4*t5*t6*t67;
    t72 = 16.0818243221511/t71+1.0;
    t73 = log(t72);
    t74 = -0.062182*t66*t73;
    t75 = 1/(2.0*t12-2.0);
    t76 = rhoa-1.0*rhob;
    t77 = pow(t76,4.0);
    t78 = 1/pow(t64,4.0);
    t79 = 1.0-1.0*t77*t78;
    t80 = 0.11125*t1*t2*t3*t65+1.0;
    t81 = 1/t64;
    t82 = 1.0-1.0*t76*t81;
    t83 = t76*t81+1.0;
    t84 = pow(t83,1.333333333333333)+pow(t82,1.333333333333333)-
        2.0;
    t85 = 10.357*t13*t14*t15*t70+3.6231*t1*t2*t3*t65+0.44013*
        t7*t8*t69+0.49671*t4*t5*t6*t67;
    t86 = 29.60857464321668/t85+1.0;
    t87 = log(t86);
    t88 = 0.019751789702565*t75*t79*t80*t84*t87;
    t89 = 0.20548*t1*t2*t3*t65+1.0;
    t90 = 14.1189*t13*t14*t15*t70+6.1977*t1*t2*t3*t65+1.6831*
        t7*t8*t69+0.62517*t4*t5*t6*t67;
    t91 = 32.1646831778707/t90+1.0;
    t92 = log(t91);
    t93 = 0.062182*t66*t73-0.03109*t89*t92;
    t94 = t75*t77*t78*t84*t93;
    t95 = 1/pow(t64,1.666666666666667);
    t96 = 1/pow(t68,3.0);
    t97 = 1/pow(t64,1.333333333333333);
    t98 = 1/pow(t64,1.166666666666667);
    t99 = -1.26595*t13*t14*t15*t98-1.195866666666667*t1*t2*
        t3*t97-0.40955*t7*t8*t96-0.328626666666667*t4*t5*t6*t95;
    t100 = 1/
        pow(t71,2.0);
    t101 = 1/t72;
    t102 = 1.0*t99*t66*t100*t101;
    t103 = -0.58482233974552*t75*t79*t80*t84*(-1.726166666666666*
        t13*t14*t15*t98-1.2077*t1*t2*t3*t97-0.220065*t7*t8*t96-0.33114*
        t4*t5*t6*t95)/(pow(t85,2.0)*t86);
    t104 = 0.004429431133333*t1*t2*t3*t97*t73;
    t105 = 1/pow(t64,2.0);
    t106 = t76*t105;
    t107 = -1.0*t81;
    t108 = pow(t82,0.333333333333333);
    t109 = -1.0*t105*t76;
    t110 = pow(t83,0.333333333333333);
    t111 = 1.333333333333333*t110*(t81+t109)+1.333333333333333*
        (t107+t106)*t108;
    t112 = -7.324622014701263E-4*t75*t1*t2*t3*t97*t79*t84*
        t87;
    t113 = 1/pow(t64,5.0);
    t114 = 4.0*t113*t77;
    t115 = pow(t76,3.0);
    t116 = t75*t77*t78*t84*(t89*(-2.35315*t13*t14*t15*t98-
        2.0659*t1*t2*t3*t97-0.84155*t7*t8*t96-0.41678*t4*t5*t6*t95)/
        (pow(t90,2.0)*t91)+0.002129457733333*t1*t2*t3*t97*t92-0.004429431133333*
        t1*t2*t3*t97*t73-1.0*t99*t66*t100*t101);
    t117 = -4.0*t113*t75*t77*t84*t93;
    t118 = 1/pow(t56,5.0);
    t119 = sqrt(rhob);
    t120 = pow(rhob,0.333333333333333);
    t121 = 1/t120;
    t122 = 0.62517*t4*t5*t6/pow(rhob,0.666666666666667)+14.1189*
        t13*t14*t15/pow(rhob,0.166666666666667)+1.6831*t7*t8/t119+
        6.1977*t1*t2*t3*t121;
    t123 = 32.1646831778707/t122+1.0;
    t124 = log(t123);
    t125 = 0.20548*t1*t2*t3*t121+1.0;
    t126 = t64*(t94+t88+t74)+0.03109*t124*t125*rhob+0.03109*
        t18*t33*rhoa;
    t127 = pow(gradb,8.0);
    t128 = 0.2*t52*t53+1.0;
    t129 = 1/pow(t128,4.0);
    t130 = 1/pow(rhob,10.66666666666667);
    t131 = pow(gradb,6.0);
    t132 = 1/pow(t128,3.0);
    t133 = 1/pow(rhob,8.0);
    t134 = pow(gradb,4.0);
    t135 = 1/pow(t128,2.0);
    t136 = 1/pow(rhob,5.333333333333333);
    t137 = 1/t128;
    t138 = -0.20958*t52*t137*t53+0.199228*t134*t135*t136-
        0.10312*t131*t132*t133+0.01543136*t127*t129*t130+0.80302;
    t139 = 0.004*
        t52*t53+1.0;
    t140 = 1/pow(t139,4.0);
    t141 = 1/pow(t139,3.0);
    t142 = 1/pow(t139,2.0);
    t143 = 1/t139;
    t144 = pow(gradb,10.0);
    t145 = 1/pow(t128,5.0);
    t146 = 1/pow(rhob,14.33333333333333);
    t147 = 1/pow(rhob,11.66666666666667);
    t148 = 1/pow(rhob,9.0);
    t149 = 1/pow(rhob,6.333333333333333);
    t150 = 1/pow(rhob,3.666666666666667);
    t151 = 1/t123;
    t152 = pow(rhob,1.333333333333333);
    t153 = -0.41678*t4*t5*t6/pow(rhob,1.666666666666667)-
        2.35315*t13*t14*t15/pow(rhob,1.166666666666667)-0.84155*t7*
        t8/pow(t119,3.0)-2.0659*t1*t2*t3/t152;
    t154 = 1/pow(t122,2.0);
    t155 = 1/pow(t139,5.0);
    t156 = 1.333333333333333*t108*(t81+t106)+1.333333333333333*
        (t107+t109)*t110;
    t157 = pow(grada,9.0);
    t158 = 1/pow(rhoa,13.33333333333333);
    t159 = pow(grada,7.0);
    t160 = pow(grada,5.0);
    t161 = pow(grada,3.0);
    t162 = pow(gradb,9.0);
    t163 = 1/pow(rhob,13.33333333333333);
    t164 = pow(gradb,7.0);
    t165 = pow(gradb,5.0);
    t166 = pow(gradb,3.0);

   /* code */
    dfdra = t63*(-1.0*t47*t49*t33*t50*rhoa+t94+t64*(4.0*t115*
        t75*t78*t84*t93+t75*t77*t78*t111*t93+0.019751789702565*t75*
        (t114-4.0*t115*t78)*t80*t84*t87+0.019751789702565*t75*t79*
        t80*t111*t87+t117+t116+t112+t104+t103+t102)+t88+t74+0.03109*
        t18*t33-0.002129457733333*t1*t2*t3*t18*t11)+t47*t32*t49*t33*
        t50*rhoa-0.03109*t18*(0.55888*t20*t31*t46-1.174325333333333*
        t28*t29*t45+1.037469866666667*t25*t26*t44-0.329593173333333*
        t19*t23*t43+0.032920234666667*t40*t41*t42)*t33*rhoa-0.75*t3*
        t34*(0.004391466666667*t20*t39*t46-2.255061333333333E-4*t28*
        t38*t45+1.205930666666665E-7*t25*t37*t44+6.538990933333333E-9*
        t19*t36*t43-1.477727573333333E-11*t40*t51*t42)*t48-1.0*t10*
        (-0.0016468*t20*t39*t21+3.89888E-5*t28*t38*t30+8.8896E-8*t25*
        t37*t27-3.463424E-10*t19*t36*t24+1.08018)*t3*t34-0.03109*t18*
        t32*t33+(-0.024216*t20*t46*t62+0.001112496*t20*t46*t54*t61-
        2.3611104E-5*t20*t46*t60*t59+3.1018464E-7*t20*t46*t58*t57-
        1.220023296E-9*t20*t46*t55*t118)*t126+0.002129457733333*t1*
        t2*t3*t18*t32*t11;
    dfdrb = t63*(-1.0*t151*t153*t125*t154*rhob+t94+t64*(-
        4.0*t115*t75*t78*t84*t93+t75*t77*t78*t156*t93+0.019751789702565*
        t75*(4.0*t115*t78+t114)*t80*t84*t87+0.019751789702565*t75*
        t79*t80*t156*t87+t117+t116+t112+t104+t103+t102)+t88+t74+0.03109*
        t124*t125-0.002129457733333*t1*t2*t3*t124*t121)+t151*t138*
        t153*t125*t154*rhob-0.03109*t124*(0.55888*t52*t137*t150-1.174325333333333*
        t134*t135*t149+1.037469866666667*t131*t132*t148-0.329593173333333*
        t127*t129*t147+0.032920234666667*t144*t145*t146)*t125*rhob-
        1.0*t120*t3*t34*(-0.0016468*t52*t143*t53+3.89888E-5*t134*t142*
        t136+8.8896E-8*t131*t141*t133-3.463424E-10*t127*t140*t130+
        1.08018)-0.75*(0.004391466666667*t52*t143*t150-2.255061333333333E-4*
        t134*t142*t149+1.205930666666665E-7*t131*t141*t148+6.538990933333333E-9*
        t127*t140*t147-1.477727573333333E-11*t144*t155*t146)*t152*
        t3*t34+(-0.024216*t52*t62*t150+0.001112496*t52*t54*t61*t150-
        2.3611104E-5*t52*t60*t59*t150+3.1018464E-7*t52*t58*t57*t150-
        1.220023296E-9*t52*t55*t118*t150)*t126-0.03109*t124*t138*t125+
        0.002129457733333*t1*t2*t3*t124*t138*t121;
    dfdga = -0.03109*t18*(-0.41916*grada*t31*t21+0.880744*
        t161*t29*t30-0.7781024*t160*t26*t27+0.24719488*t159*t23*t24-
        0.024690176*t157*t41*t158)*t33*rhoa-0.75*(-0.0032936*grada*
        t39*t21+1.6912959999999997E-4*t161*t38*t30-9.04447999999999E-8*
        t160*t37*t27-4.9042432E-9*t159*t36*t24+1.10829568E-11*t157*
        t51*t158)*t3*t34*t48+(0.018162*grada*t21*t62-8.34372E-4*grada*
        t21*t54*t61+1.7708328E-5*grada*t21*t60*t59-2.3263848E-7*grada*
        t21*t58*t57+9.15017472E-10*grada*t21*t55*t118)*t126;
    dfdgb = -0.03109*t124*(-0.41916*gradb*t137*t53+0.880744*
        t166*t135*t136-0.7781024*t165*t132*t133+0.24719488*t164*t129*
        t130-0.024690176*t162*t145*t163)*t125*rhob-0.75*t152*t3*t34*
        (-0.0032936*gradb*t143*t53+1.6912959999999997E-4*t166*t142*
        t136-9.04447999999999E-8*t165*t141*t133-4.9042432E-9*t164*
        t140*t130+1.10829568E-11*t162*t155*t163)+(0.018162*gradb*t62*
        t53-8.34372E-4*gradb*t54*t61*t53+1.7708328E-5*gradb*t60*t59*
        t53-2.3263848E-7*gradb*t58*t57*t53+9.15017472E-10*gradb*t55*
        t118*t53)*t126;
    dfdgab = 0.0;


    ds->df1000 += factor*dfdra;
    ds->df0100 += factor*dfdrb;
    ds->df0010 += factor*dfdga;
    ds->df0001 += factor*dfdgb;
    ds->df00001+= factor*dfdgab;
   
}

static void
hcth407p_second(FunSecondFuncDrv *ds, real factor, const FunDensProp* dp)
{
    real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
    real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
        d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
        d2fdgbgb, d2fdgbgab, d2fdgabgab;
    real rhoa = dp->rhoa, rhob = dp->rhob;
    real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;

    real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
    real t11, t12, t13, t14, t15, t16, t17, t18;
    real t19, t20, t21, t22, t23, t24, t25, t26;
    real t27, t28, t29, t30, t31, t32, t33, t34;
    real t35, t36, t37, t38, t39, t40, t41, t42;
    real t43, t44, t45, t46, t47, t48, t49, t50;
    real t51, t52, t53, t54, t55, t56, t57, t58;
    real t59, t60, t61, t62, t63, t64, t65, t66;
    real t67, t68, t69, t70, t71, t72, t73, t74;
    real t75, t76, t77, t78, t79, t80, t81, t82;
    real t83, t84, t85, t86, t87, t88, t89, t90;
    real t91, t92, t93, t94, t95, t96, t97, t98;
    real t99, t100, t101, t102, t103, t104, t105;
    real t106, t107, t108, t109, t110, t111, t112;
    real t113, t114, t115, t116, t117, t118, t119;
    real t120, t121, t122, t123, t124, t125, t126;
    real t127, t128, t129, t130, t131, t132, t133;
    real t134, t135, t136, t137, t138, t139, t140;
    real t141, t142, t143, t144, t145, t146, t147;
    real t148, t149, t150, t151, t152, t153, t154;
    real t155, t156, t157, t158, t159, t160, t161;
    real t162, t163, t164, t165, t166, t167, t168;
    real t169, t170, t171, t172, t173, t174, t175;
    real t176, t177, t178, t179, t180, t181, t182;
    real t183, t184, t185, t186, t187, t188, t189;
    real t190, t191, t192, t193, t194, t195, t196;
    real t197, t198, t199, t200, t201, t202, t203;
    real t204, t205, t206, t207, t208, t209, t210;
    real t211, t212, t213, t214, t215, t216, t217;
    real t218, t219, t220, t221, t222, t223, t224;
    real t225, t226, t227, t228, t229, t230, t231;
    real t232, t233, t234, t235, t236, t237, t238;
    real t239, t240, t241, t242, t243, t244, t245;
    real t246, t247, t248, t249, t250, t251, t252;
    real t253, t254, t255, t256, t257, t258, t259;
    real t260, t261, t262, t263, t264, t265, t266;
    real t267, t268, t269, t270, t271, t272, t273;
    real t274, t275, t276, t277, t278, t279, t280;
    real t281, t282, t283, t284, t285;

    t1 = pow(3.0,0.333333333333333);
    t2 = 1/pow(4.0,0.333333333333333);
    t3 = 1/pow(3.141592653589793,0.333333333333333);
    t4 = pow(3.0,0.666666666666667);
    t5 = 1/pow(4.0,0.666666666666667);
    t6 = 1/pow(3.141592653589793,0.666666666666667);
    t7 = 1/pow(rhoa,0.666666666666667);
    t8 = 1.732050807568877;
    t9 = 0.564189583547756;
    t10 = sqrt(rhoa);
    t11 = pow(rhoa,0.333333333333333);
    t12 = 1/t11;
    t13 = pow(2.0,0.333333333333333);
    t14 = 1/t13;
    t15 = pow(3.0,0.166666666666667);
    t16 = 1/pow(3.141592653589793,0.166666666666667);
    t17 = 14.1189*t14*t15*t16/pow(rhoa,0.166666666666667)+
        1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
    t18 = 32.1646831778707/
        t17+1.0;
    t19 = log(t18);
    t20 = pow(grada,8.0);
    t21 = pow(grada,2.0);
    t22 = 1/pow(rhoa,2.666666666666667);
    t23 = 0.2*t21*t22+1.0;
    t24 = 1/pow(t23,4.0);
    t25 = 1/pow(rhoa,10.66666666666667);
    t26 = pow(grada,6.0);
    t27 = 1/pow(t23,3.0);
    t28 = 1/pow(rhoa,8.0);
    t29 = pow(grada,4.0);
    t30 = 1/pow(t23,2.0);
    t31 = 1/pow(rhoa,5.333333333333333);
    t32 = 1/t23;
    t33 = -0.20958*t21*t32*t22+0.199228*t29*t30*t31-0.10312*
        t26*t27*t28+0.01543136*t20*t24*t25+0.80302;
    t34 = 0.20548*t1*t2*t3*t12+1.0;
    t35 = pow(6.0,0.333333333333333);
    t36 = 0.004*t21*t22+1.0;
    t37 = 1/pow(t36,4.0);
    t38 = 1/pow(t36,3.0);
    t39 = 1/pow(t36,2.0);
    t40 = 1/t36;
    t41 = -0.0016468*t21*t40*t22+3.89888E-5*t29*t39*t31+8.8896E-8*
        t26*t38*t28-3.463424E-10*t20*t37*t25+1.08018;
    t42 = pow(grada,10.0);
    t43 = 1/pow(t23,5.0);
    t44 = 1/pow(rhoa,14.33333333333333);
    t45 = 1/pow(rhoa,11.66666666666667);
    t46 = 1/pow(rhoa,9.0);
    t47 = 1/pow(rhoa,6.333333333333333);
    t48 = 1/pow(rhoa,3.666666666666667);
    t49 = 0.55888*t21*t32*t48-1.174325333333333*t29*t30*t47+
        1.037469866666667*t26*t27*t46-0.329593173333333*t20*t24*t45+
        0.032920234666667*t42*t43*t44;
    t50 = 1/t18;
    t51 = pow(rhoa,1.333333333333333);
    t52 = 1/t51;
    t53 = -0.41678*t4*t5*t6/pow(rhoa,1.666666666666667)-2.35315*
        t14*t15*t16/pow(rhoa,1.166666666666667)-0.84155*t8*t9/pow(t10,
        3.0)-2.0659*t1*t2*t3*t52;
    t54 = 1/pow(t17,2.0);
    t55 = 1/pow(t36,5.0);
    t56 = 0.004391466666667*t21*t40*t48-2.255061333333333E-4*
        t29*t39*t47+1.205930666666665E-7*t26*t38*t46+6.538990933333333E-9*
        t20*t37*t45-1.477727573333333E-11*t42*t55*t44;
    t57 = pow(gradb,2.0);
    t58 = 1/pow(rhob,2.666666666666667);
    t59 = 0.5*t57*t58+0.5*t21*t22;
    t60 = pow(t59,4.0);
    t61 = 0.006*t59+1.0;
    t62 = 1/pow(t61,4.0);
    t63 = pow(t59,3.0);
    t64 = 1/pow(t61,3.0);
    t65 = pow(t59,2.0);
    t66 = 1/pow(t61,2.0);
    t67 = 1/t61;
    t68 = 0.018162*t59*t67-3.627E-4*t65*t66+4.451976E-6*t63*
        t64-3.8125728E-8*t60*t62+0.73604;
    t69 = rhob+rhoa;
    t70 = 1/pow(t69,0.333333333333333);
    t71 = 0.2137*t1*t2*t3*t70+1.0;
    t72 = 1/pow(t69,0.666666666666667);
    t73 = sqrt(t69);
    t74 = 1/t73;
    t75 = 1/pow(t69,0.166666666666667);
    t76 = 7.5957*t14*t15*t16*t75+3.5876*t1*t2*t3*t70+0.8191*
        t8*t9*t74+0.49294*t4*t5*t6*t72;
    t77 = 16.0818243221511/t76+1.0;
    t78 = log(t77);
    t79 = -0.062182*t71*t78;
    t80 = 1/(2.0*t13-2.0);
    t81 = rhoa-1.0*rhob;
    t82 = pow(t81,4.0);
    t83 = 1/pow(t69,4.0);
    t84 = 1.0-1.0*t82*t83;
    t85 = 0.11125*t1*t2*t3*t70+1.0;
    t86 = 1/t69;
    t87 = 1.0-1.0*t81*t86;
    t88 = t81*t86+1.0;
    t89 = pow(t88,1.333333333333333)+pow(t87,1.333333333333333)-
        2.0;
    t90 = 10.357*t14*t15*t16*t75+3.6231*t1*t2*t3*t70+0.44013*
        t8*t9*t74+0.49671*t4*t5*t6*t72;
    t91 = 29.60857464321668/t90+1.0;
    t92 = log(t91);
    t93 = 0.019751789702565*t80*t84*t85*t89*t92;
    t94 = 0.20548*t1*t2*t3*t70+1.0;
    t95 = 14.1189*t14*t15*t16*t75+6.1977*t1*t2*t3*t70+1.6831*
        t8*t9*t74+0.62517*t4*t5*t6*t72;
    t96 = 32.1646831778707/t95+1.0;
    t97 = log(t96);
    t98 = 0.062182*t71*t78-0.03109*t94*t97;
    t99 = t80*t82*t83*t89*t98;
    t100 = 1/pow(t69,1.666666666666667);
    t101 = 1/pow(t73,3.0);
    t102 = 1/pow(t69,1.333333333333333);
    t103 = 1/pow(t69,1.166666666666667);
    t104 = -1.26595*t14*t15*t16*t103-1.195866666666667*t1*
        t2*t3*t102-0.40955*t8*t9*t101-0.328626666666667*t4*t5*t6*t100;
    t105 = 1/
        pow(t76,2.0);
    t106 = 1/t77;
    t107 = 1.0*t104*t71*t105*t106;
    t108 = -1.726166666666666*t14*t15*t16*t103-1.2077*t1*
        t2*t3*t102-0.220065*t8*t9*t101-0.33114*t4*t5*t6*t100;
    t109 = 1/pow(t90,2.0);
    t110 = 1/t91;
    t111 = -0.58482233974552*t80*t84*t108*t85*t109*t89*t110;
    t112 = 0.004429431133333*
        t1*t2*t3*t102*t78;
    t113 = 1/pow(t69,2.0);
    t114 = t81*t113;
    t115 = -1.0*t86;
    t116 = t115+t114;
    t117 = pow(t87,0.333333333333333);
    t118 = -1.0*t113*t81;
    t119 = t86+t118;
    t120 = pow(t88,0.333333333333333);
    t121 = 1.333333333333333*t119*t120+1.333333333333333*
        t116*t117;
    t122 = 0.019751789702565*t80*t84*t85*t121*t92;
    t123 = -7.324622014701263E-4*t80*t1*t2*t3*t102*t84*t89*
        t92;
    t124 = 1/pow(t69,5.0);
    t125 = 4.0*t124*t82;
    t126 = pow(t81,3.0);
    t127 = t125-4.0*t126*t83;
    t128 = 0.019751789702565*t80*t127*t85*t89*t92;
    t129 = -2.35315*t14*t15*t16*t103-2.0659*t1*t2*t3*t102-
        0.84155*t8*t9*t101-0.41678*t4*t5*t6*t100;
    t130 = 1/pow(t95,2.0);
    t131 = 1/t96;
    t132 = 0.002129457733333*t1*t2*t3*t102*t97-0.004429431133333*
        t1*t2*t3*t102*t78+t129*t94*t130*t131-1.0*t104*t71*t105*t106;
    t133 = t80*
        t82*t83*t89*t132;
    t134 = t80*t82*t83*t121*t98;
    t135 = -4.0*t124*t80*t82*t89*t98;
    t136 = -1.0*t50*t53*t34*t54*rhoa+t99+t69*(4.0*t126*t80*
        t83*t89*t98+t135+t134+t133+t128+t123+t122+t112+t111+t107)+
        t93+t79+0.03109*t19*t34-0.002129457733333*t1*t2*t3*t19*t12;
    t137 = 1/
        pow(t61,5.0);
    t138 = -0.024216*t21*t48*t67+0.001112496*t21*t48*t59*
        t66-2.3611104E-5*t21*t48*t65*t64+3.1018464E-7*t21*t48*t63*
        t62-1.220023296E-9*t21*t48*t60*t137;
    t139 = 1/pow(rhob,0.666666666666667);
    t140 = sqrt(rhob);
    t141 = pow(rhob,0.333333333333333);
    t142 = 1/t141;
    t143 = 14.1189*t14*t15*t16/pow(rhob,0.166666666666667)+
        1.6831*t8*t9/t140+6.1977*t1*t2*t3*t142+0.62517*t4*t5*t6*t139;
    t144 = 32.1646831778707/
        t143+1.0;
    t145 = log(t144);
    t146 = 0.20548*t1*t2*t3*t142+1.0;
    t147 = t69*(t99+t93+t79)+0.03109*t145*t146*rhob+0.03109*
        t19*t34*rhoa;
    t148 = pow(gradb,8.0);
    t149 = 0.2*t57*t58+1.0;
    t150 = 1/pow(t149,4.0);
    t151 = 1/pow(rhob,10.66666666666667);
    t152 = pow(gradb,6.0);
    t153 = 1/pow(t149,3.0);
    t154 = 1/pow(rhob,8.0);
    t155 = pow(gradb,4.0);
    t156 = 1/pow(t149,2.0);
    t157 = 1/pow(rhob,5.333333333333333);
    t158 = 1/t149;
    t159 = -0.20958*t57*t158*t58+0.199228*t155*t156*t157-
        0.10312*t152*t153*t154+0.01543136*t148*t150*t151+0.80302;
    t160 = 0.004*
        t57*t58+1.0;
    t161 = 1/pow(t160,4.0);
    t162 = 1/pow(t160,3.0);
    t163 = 1/pow(t160,2.0);
    t164 = 1/t160;
    t165 = -0.0016468*t57*t164*t58+3.89888E-5*t155*t163*t157+
        8.8896E-8*t152*t162*t154-3.463424E-10*t148*t161*t151+1.08018;
    t166 = pow(gradb,
        10.0);
    t167 = 1/pow(t149,5.0);
    t168 = 1/pow(rhob,14.33333333333333);
    t169 = 1/pow(rhob,11.66666666666667);
    t170 = 1/pow(rhob,9.0);
    t171 = 1/pow(rhob,6.333333333333333);
    t172 = 1/pow(rhob,3.666666666666667);
    t173 = 0.55888*t57*t158*t172-1.174325333333333*t155*t156*
        t171+1.037469866666667*t152*t153*t170-0.329593173333333*t148*
        t150*t169+0.032920234666667*t166*t167*t168;
    t174 = 1/t144;
    t175 = pow(rhob,1.333333333333333);
    t176 = 1/t175;
    t177 = -0.41678*t4*t5*t6/pow(rhob,1.666666666666667)-
        2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-0.84155*t8*
        t9/pow(t140,3.0)-2.0659*t1*t2*t3*t176;
    t178 = 1/pow(t143,2.0);
    t179 = 1/pow(t160,5.0);
    t180 = 0.004391466666667*t57*t164*t172-2.255061333333333E-4*
        t155*t163*t171+1.205930666666665E-7*t152*t162*t170+6.538990933333333E-9*
        t148*t161*t169-1.477727573333333E-11*t166*t179*t168;
    t181 = t86+t114;
    t182 = t115+t118;
    t183 = 1.333333333333333*t120*t182+1.333333333333333*
        t117*t181;
    t184 = 0.019751789702565*t80*t84*t85*t183*t92;
    t185 = 4.0*t126*t83+t125;
    t186 = 0.019751789702565*t80*t185*t85*t89*t92;
    t187 = t80*t82*t83*t183*t98;
    t188 = -1.0*t174*t177*t146*t178*rhob+t99+t69*(-4.0*t126*
        t80*t83*t89*t98+t187+t186+t184+t135+t133+t123+t112+t111+t107)+
        t93+t79+0.03109*t145*t146-0.002129457733333*t1*t2*t3*t145*
        t142;
    t189 = -0.024216*t57*t67*t172+0.001112496*t57*t59*t66*
        t172-2.3611104E-5*t57*t65*t64*t172+3.1018464E-7*t57*t63*t62*
        t172-1.220023296E-9*t57*t60*t137*t172;
    t190 = pow(grada,9.0);
    t191 = 1/pow(rhoa,13.33333333333333);
    t192 = pow(grada,7.0);
    t193 = pow(grada,5.0);
    t194 = pow(grada,3.0);
    t195 = -0.41916*grada*t32*t22+0.880744*t194*t30*t31-0.7781024*
        t193*t27*t28+0.24719488*t192*t24*t25-0.024690176*t190*t43*
        t191;
    t196 = -0.0032936*grada*t40*t22+1.6912959999999997E-4*
        t194*t39*t31-9.04447999999999E-8*t193*t38*t28-4.9042432E-9*
        t192*t37*t25+1.10829568E-11*t190*t55*t191;
    t197 = 0.018162*grada*t22*t67-8.34372E-4*grada*t22*t59*
        t66+1.7708328E-5*grada*t22*t65*t64-2.3263848E-7*grada*t22*
        t63*t62+9.15017472E-10*grada*t22*t60*t137;
    t198 = pow(gradb,9.0);
    t199 = 1/pow(rhob,13.33333333333333);
    t200 = pow(gradb,7.0);
    t201 = pow(gradb,5.0);
    t202 = pow(gradb,3.0);
    t203 = -0.41916*gradb*t158*t58+0.880744*t202*t156*t157-
        0.7781024*t201*t153*t154+0.24719488*t200*t150*t151-0.024690176*
        t198*t167*t199;
    t204 = -0.0032936*gradb*t164*t58+1.6912959999999997E-4*
        t202*t163*t157-9.04447999999999E-8*t201*t162*t154-4.9042432E-9*
        t200*t161*t151+1.10829568E-11*t198*t179*t199;
    t205 = 0.018162*gradb*t67*t58-8.34372E-4*gradb*t59*t66*
        t58+1.7708328E-5*gradb*t65*t64*t58-2.3263848E-7*gradb*t63*
        t62*t58+9.15017472E-10*gradb*t60*t137*t58;
    t206 = pow(grada,12.0);
    t207 = 1/pow(t23,6.0);
    t208 = 1/pow(rhoa,18.0);
    t209 = 1/pow(rhoa,15.33333333333333);
    t210 = 1/pow(rhoa,12.66666666666667);
    t211 = 1/pow(rhoa,10.0);
    t212 = 1/pow(rhoa,7.333333333333333);
    t213 = 1/pow(rhoa,4.666666666666667);
    t214 = 1/pow(t18,2.0);
    t215 = pow(t53,2.0);
    t216 = 1/pow(t17,4.0);
    t217 = 1/pow(t17,3.0);
    t218 = 2.754533333333333*t1*t2*t3/pow(rhoa,2.333333333333333)+
        2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
        1.262325*t8*t9/pow(t10,5.0)+0.694633333333333*t4*t5*t6*t22;
    t219 = 1/
        pow(t36,6.0);
    t220 = 2.0*t104*t71*t105*t106;
    t221 = -1.169644679491041*t80*t84*t108*t85*t109*t89*t110;
    t222 = 0.008858862266667*
        t1*t2*t3*t102*t78;
    t223 = -0.00146492440294*t80*t1*t2*t3*t102*t84*t89*t92;
    t224 = 2.0*
        t132*t80*t82*t83*t89;
    t225 = -8.0*t124*t80*t82*t89*t98;
    t226 = pow(t104,2.0);
    t227 = 1/pow(t76,4.0);
    t228 = 1/pow(t77,2.0);
    t229 = 16.0818243221511*t226*t71*t227*t228;
    t230 = 1/pow(t76,3.0);
    t231 = -2.0*t226*t71*t230*t106;
    t232 = -0.142466666666667*t1*t2*t3*t102*t104*t105*t106;
    t233 = 1/
        pow(t69,2.666666666666667);
    t234 = 1/pow(t73,5.0);
    t235 = 1/pow(t69,2.333333333333333);
    t236 = 1/pow(t69,2.166666666666667);
    t237 = 1.476941666666667*t14*t15*t16*t236+1.594488888888889*
        t1*t2*t3*t235+0.614325*t8*t9*t234+0.547711111111111*t4*t5*
        t6*t233;
    t238 = 1.0*t237*t71*t105*t106;
    t239 = pow(t108,2.0);
    t240 = -17.31575589937587*t239*t80*t84*t85*t89/(pow(t90,
        4.0)*pow(t91,2.0));
    t241 = 1.169644679491041*t110*t239*t80*t84*t85*t89/pow(t90,
        3.0);
    t242 = 0.043374323531126*t80*t1*t2*t3*t102*t84*t108*t109*
        t89*t110;
    t243 = -0.58482233974552*t80*t84*(2.013861111111111*t14*
        t15*t16*t236+1.610266666666667*t1*t2*t3*t235+0.3300975*t8*
        t9*t234+0.5519*t4*t5*t6*t233)*t85*t109*t89*t110;
    t244 = -0.005905908177778*t1*t2*t3*t235*t78;
    t245 = 1/pow(t87,0.666666666666667);
    t246 = 1/pow(t69,3.0);
    t247 = -2.0*t246*t81;
    t248 = 2.0*t113;
    t249 = 1/pow(t88,0.666666666666667);
    t250 = 2.0*t246*t81;
    t251 = -2.0*t113;
    t252 = 1.333333333333333*t120*(t251+t250)+0.444444444444444*
        pow(t119,2.0)*t249+1.333333333333333*t117*(t248+t247)+0.444444444444444*
        pow(t116,2.0)*t245;
    t253 = 9.76616268626835E-4*t80*t1*t2*t3*t235*t84*t89*
        t92;
    t254 = 1/pow(t69,6.0);
    t255 = -20.0*t254*t82;
    t256 = pow(t81,2.0);
    t257 = -12.0*t256*t83;
    t258 = pow(t129,2.0);
    t259 = t80*t82*t83*t89*(-0.002839276977778*t1*t2*t3*t235*
        t97+32.1646831778707*t258*t94/(pow(t95,4.0)*pow(t96,2.0))-
        2.0*t131*t258*t94/pow(t95,3.0)+0.005905908177778*t1*t2*t3*
        t235*t78-16.0818243221511*t226*t71*t227*t228+(2.745341666666667*
        t14*t15*t16*t236+2.754533333333333*t1*t2*t3*t235+1.262325*
        t8*t9*t234+0.694633333333333*t4*t5*t6*t233)*t94*t130*t131-
        0.136986666666667*t1*t2*t3*t102*t129*t130*t131+2.0*t226*t71*
        t230*t106-1.0*t237*t71*t105*t106+0.142466666666667*t1*t2*t3*
        t102*t104*t105*t106);
    t260 = -8.0*t124*t132*t80*t82*t89;
    t261 = 20.0*t254*t80*t82*t89*t98;
    t262 = 12.0*t256*t80*t83*t89*t98;
    t263 = 1/pow(t61,6.0);
    t264 = 2.666666666666667*t120*t246*t81-2.666666666666667*
        t117*t246*t81+0.444444444444444*t119*t182*t249+0.444444444444444*
        t116*t181*t245;
    t265 = pow(grada,11.0);
    t266 = 1/pow(rhoa,17.0);
    t267 = pow(gradb,12.0);
    t268 = 1/pow(t149,6.0);
    t269 = 1/pow(rhob,18.0);
    t270 = 1/pow(rhob,15.33333333333333);
    t271 = 1/pow(rhob,12.66666666666667);
    t272 = 1/pow(rhob,10.0);
    t273 = 1/pow(rhob,7.333333333333333);
    t274 = 1/pow(rhob,4.666666666666667);
    t275 = 1/pow(t144,2.0);
    t276 = pow(t177,2.0);
    t277 = 1/pow(t143,4.0);
    t278 = 1/pow(t143,3.0);
    t279 = 2.754533333333333*t1*t2*t3/pow(rhob,2.333333333333333)+
        2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
        1.262325*t8*t9/pow(t140,5.0)+0.694633333333333*t4*t5*t6*t58;
    t280 = 1/
        pow(t160,6.0);
    t281 = 1.333333333333333*t117*(t251+t247)+0.444444444444444*
        pow(t182,2.0)*t249+1.333333333333333*t120*(t248+t250)+0.444444444444444*
        pow(t181,2.0)*t245;
    t282 = pow(gradb,11.0);
    t283 = 1/pow(rhob,17.0);
    t284 = 1/pow(rhoa,16.0);
    t285 = 1/pow(rhob,16.0);

   /* code */
    dfdra = t50*t33*t53*t34*t54*rhoa-0.03109*t19*t49*t34*
        rhoa-0.75*t3*t35*t51*t56-1.0*t11*t3*t35*t41-0.03109*t19*t33*
        t34+t138*t147+t68*t136+0.002129457733333*t1*t2*t3*t19*t33*
        t12;
    dfdrb = t174*t159*t177*t146*t178*rhob-0.03109*t145*t173*
        t146*rhob-0.75*t175*t180*t3*t35-1.0*t141*t165*t3*t35+t68*t188+
        t189*t147-0.03109*t145*t159*t146+0.002129457733333*t1*t2*t3*
        t145*t159*t142;
    dfdga = -0.03109*t19*t195*t34*rhoa-0.75*t196*t3*t35*t51+
        t197*t147;
    dfdgb = -0.03109*t145*t203*t146*rhob-0.75*t175*t204*t3*
        t35+t205*t147;
    dfdgab = 0.0;
    d2fdrara = t68*(-1.0*t50*t218*t34*t54*rhoa+2.0*t50*t215*
        t34*t217*rhoa-32.1646831778707*t214*t215*t34*t216*rhoa+t69*
        (-32.0*t124*t126*t80*t89*t98+8.0*t121*t126*t80*t83*t98-8.0*
        t121*t124*t80*t82*t98+t80*t82*t83*t252*t98+0.019751789702565*
        (t257+t255+32.0*t124*t126)*t80*t85*t89*t92-0.00146492440294*
        t80*t1*t2*t3*t102*t127*t89*t92+0.019751789702565*t80*t84*t85*
        t252*t92+0.03950357940513*t80*t127*t85*t121*t92-0.00146492440294*
        t80*t1*t2*t3*t102*t84*t121*t92+8.0*t126*t132*t80*t83*t89+2.0*
        t121*t132*t80*t82*t83+t262+t261+t260+t259+t253+t244+t243+t242+
        t241+t240+t238+t232+t231+t229-1.169644679491041*t80*t127*t108*
        t85*t109*t89*t110-1.169644679491041*t80*t84*t108*t85*t109*
        t121*t110)+8.0*t126*t80*t83*t89*t98+2.0*t121*t80*t82*t83*t98+
        0.03950357940513*t80*t127*t85*t89*t92+0.03950357940513*t80*
        t84*t85*t121*t92-2.0*t50*t53*t34*t54-0.001419638488889*t1*
        t2*t3*t19*t52+t225+t224+t223+t222+t221+t220+0.136986666666667*
        t1*t2*t3*t50*t53*t54*t12)+2.0*t34*t49*t50*t53*t54*rhoa+t50*
        t33*t218*t34*t54*rhoa-2.0*t215*t217*t33*t34*t50*rhoa-0.03109*
        t19*(-2.049226666666667*t21*t32*t213+7.735463111111112*t29*
        t30*t212-10.58984248888889*t26*t27*t211+5.505205475555558*
        t20*t24*t210-1.174988800000001*t42*t43*t209+0.087787292444444*
        t206*t207*t208)*t34*rhoa+32.1646831778707*t214*t33*t215*t34*
        t216*rhoa-0.333333333333333*t3*t35*t41*t7-2.0*t11*t3*t35*t56+
        2.0*t33*t34*t50*t53*t54+0.001419638488889*t1*t2*t3*t19*t33*
        t52-0.75*(-0.016102044444444*t21*t40*t213+0.001475047822222*
        t29*t39*t212-5.896135111111109E-6*t26*t38*t211-7.242924942222222E-8*
        t20*t37*t210+4.90804565333333E-10*t42*t55*t209-7.88121372444444E-13*
        t206*t219*t208)*t3*t35*t51-0.06218*t19*t49*t34+(0.088792*t21*
        t213*t67-0.004079152*t21*t213*t59*t66-0.001677056*t29*t212*
        t66+8.6574048E-5*t21*t213*t65*t64+8.076287999999999E-5*t29*
        t212*t59*t64-1.13734368E-6*t21*t213*t63*t62-1.807405056E-6*
        t29*t212*t65*t62+4.473418752E-9*t21*t213*t60*t137+1.6432699391999998E-8*
        t29*t212*t63*t137-4.880093184E-11*t29*t212*t60*t263)*t147+
        2.0*t136*t138-0.136986666666667*t1*t2*t3*t50*t33*t53*t54*t12+
        0.004258915466667*t1*t2*t3*t19*t49*t12;
    d2fdrarb = t68*(t69*(-12.0*t256*t80*t83*t89*t98+4.0*t126*
        t183*t80*t83*t98-4.0*t121*t126*t80*t83*t98-4.0*t124*t183*t80*
        t82*t98-4.0*t121*t124*t80*t82*t98+t80*t82*t83*t264*t98+0.019751789702565*
        t80*(12.0*t256*t83+t255)*t85*t89*t92-7.324622014701263E-4*
        t80*t1*t2*t3*t102*t185*t89*t92-7.324622014701263E-4*t80*t1*
        t2*t3*t102*t127*t89*t92+0.019751789702565*t80*t84*t85*t264*
        t92+0.019751789702565*t80*t127*t85*t183*t92-7.324622014701263E-4*
        t80*t1*t2*t3*t102*t84*t183*t92+0.019751789702565*t80*t185*
        t85*t121*t92-7.324622014701263E-4*t80*t1*t2*t3*t102*t84*t121*
        t92+t261+t260+t259+t253+t244+t243+t242+t241+t240+t238+t232+
        t231+t229+t80*t82*t83*t183*t132+t80*t82*t83*t121*t132-0.58482233974552*
        t80*t185*t108*t85*t109*t89*t110-0.58482233974552*t80*t127*
        t108*t85*t109*t89*t110-0.58482233974552*t80*t84*t108*t85*t109*
        t183*t110-0.58482233974552*t80*t84*t108*t85*t109*t121*t110)+
        t225+t224+t223+t222+t221+t220+t187+t186+t184+t134+t128+t122)+
        t138*t188+(-0.001677056*t21*t57*t48*t66*t172+8.076287999999999E-5*
        t21*t57*t48*t59*t64*t172-1.807405056E-6*t21*t57*t48*t65*t62*
        t172+1.6432699391999998E-8*t21*t57*t48*t63*t137*t172-4.880093184E-11*
        t21*t57*t48*t60*t263*t172)*t147+t189*t136;
    d2fdraga = t50*t195*t53*t34*t54*rhoa-0.03109*t19*(1.11776*
        grada*t32*t48-4.920853333333334*t194*t30*t47+7.164279466666668*
        t193*t27*t46-3.881709226666668*t192*t24*t45+0.856551424*t190*
        t43*t44-0.065840469333333*t265*t207*t266)*t34*rhoa-0.75*t3*
        t35*(0.008782933333333*grada*t40*t48-9.371562666666666E-4*
        t194*t39*t47+4.331656533333332E-6*t193*t38*t46+4.941769386666667E-8*
        t192*t37*t45-3.570204672E-10*t190*t55*t44+5.91091029333333E-13*
        t265*t219*t266)*t51-1.0*t11*t196*t3*t35-0.03109*t19*t195*t34+
        (-0.048432*grada*t48*t67+0.002224992*grada*t48*t59*t66+0.001257792*
        t194*t47*t66-4.7222208E-5*grada*t48*t65*t64-6.057216E-5*t194*
        t47*t59*t64+6.2036928E-7*grada*t48*t63*t62+1.3555537919999999E-6*
        t194*t47*t65*t62-2.440046592E-9*grada*t48*t60*t137-1.2324524543999998E-8*
        t194*t47*t63*t137+3.660069888E-11*t194*t47*t60*t263)*t147+
        t197*t136+0.002129457733333*t1*t2*t3*t19*t195*t12;
    d2fdragb = (0.001257792*t21*gradb*t48*t66*t58-6.057216E-5*
        t21*gradb*t48*t59*t64*t58+1.3555537919999999E-6*t21*gradb*
        t48*t65*t62*t58-1.2324524543999998E-8*t21*gradb*t48*t63*t137*
        t58+3.660069888E-11*t21*gradb*t48*t60*t263*t58)*t147+t205*
        t136;
    d2fdraab = 0.0;
    d2fdrbrb = t68*(2.0*t174*t276*t146*t278*rhob-32.1646831778707*
        t275*t276*t146*t277*rhob-1.0*t174*t279*t146*t178*rhob+t69*
        (32.0*t124*t126*t80*t89*t98-8.0*t126*t183*t80*t83*t98-8.0*
        t124*t183*t80*t82*t98+t80*t82*t83*t281*t98+0.019751789702565*
        (t257+t255-32.0*t124*t126)*t80*t85*t89*t92-0.00146492440294*
        t80*t1*t2*t3*t102*t185*t89*t92+0.019751789702565*t80*t84*t85*
        t281*t92+0.03950357940513*t80*t185*t85*t183*t92-0.00146492440294*
        t80*t1*t2*t3*t102*t84*t183*t92-8.0*t126*t132*t80*t83*t89+2.0*
        t132*t183*t80*t82*t83+t262+t261+t260+t259+t253+t244+t243+t242+
        t241+t240+t238+t232+t231+t229-1.169644679491041*t80*t185*t108*
        t85*t109*t89*t110-1.169644679491041*t80*t84*t108*t85*t109*
        t183*t110)-8.0*t126*t80*t83*t89*t98+2.0*t183*t80*t82*t83*t98+
        0.03950357940513*t80*t185*t85*t89*t92+0.03950357940513*t80*
        t84*t85*t183*t92+t225+t224+t223+t222+t221+t220-2.0*t174*t177*
        t146*t178-0.001419638488889*t1*t2*t3*t145*t176+0.136986666666667*
        t1*t2*t3*t174*t177*t178*t142)-2.0*t146*t159*t174*t276*t278*
        rhob+32.1646831778707*t275*t159*t276*t146*t277*rhob+2.0*t146*
        t173*t174*t177*t178*rhob+t174*t159*t279*t146*t178*rhob-0.03109*
        t145*(-2.049226666666667*t57*t158*t274+7.735463111111112*t155*
        t156*t273-10.58984248888889*t152*t153*t272+5.505205475555558*
        t148*t150*t271-1.174988800000001*t166*t167*t270+0.087787292444444*
        t267*t268*t269)*t146*rhob-0.75*t175*(-0.016102044444444*t57*
        t164*t274+0.001475047822222*t155*t163*t273-5.896135111111109E-6*
        t152*t162*t272-7.242924942222222E-8*t148*t161*t271+4.90804565333333E-10*
        t166*t179*t270-7.88121372444444E-13*t267*t280*t269)*t3*t35-
        2.0*t141*t180*t3*t35-0.333333333333333*t139*t165*t3*t35+2.0*
        t188*t189+2.0*t146*t159*t174*t177*t178+0.001419638488889*t1*
        t2*t3*t145*t159*t176+(0.088792*t57*t67*t274-0.004079152*t57*
        t59*t66*t274+8.6574048E-5*t57*t65*t64*t274-1.13734368E-6*t57*
        t63*t62*t274+4.473418752E-9*t57*t60*t137*t274-0.001677056*
        t155*t66*t273+8.076287999999999E-5*t155*t59*t64*t273-1.807405056E-6*
        t155*t65*t62*t273+1.6432699391999998E-8*t155*t63*t137*t273-
        4.880093184E-11*t155*t60*t263*t273)*t147-0.06218*t145*t173*
        t146-0.136986666666667*t1*t2*t3*t174*t159*t177*t178*t142+0.004258915466667*
        t1*t2*t3*t145*t173*t142;
    d2fdrbga = (0.001257792*grada*t57*t22*t66*t172-6.057216E-5*
        grada*t57*t22*t59*t64*t172+1.3555537919999999E-6*grada*t57*
        t22*t65*t62*t172-1.2324524543999998E-8*grada*t57*t22*t63*t137*
        t172+3.660069888E-11*grada*t57*t22*t60*t263*t172)*t147+t197*
        t188;
    d2fdrbgb = t174*t203*t177*t146*t178*rhob-0.03109*t145*
        (1.11776*gradb*t158*t172-4.920853333333334*t202*t156*t171+
        7.164279466666668*t201*t153*t170-3.881709226666668*t200*t150*
        t169+0.856551424*t198*t167*t168-0.065840469333333*t282*t268*
        t283)*t146*rhob-1.0*t141*t204*t3*t35-0.75*(0.008782933333333*
        gradb*t164*t172-9.371562666666666E-4*t202*t163*t171+4.331656533333332E-6*
        t201*t162*t170+4.941769386666667E-8*t200*t161*t169-3.570204672E-10*
        t198*t179*t168+5.91091029333333E-13*t282*t280*t283)*t175*t3*
        t35+t205*t188+(-0.048432*gradb*t67*t172+0.002224992*gradb*
        t59*t66*t172-4.7222208E-5*gradb*t65*t64*t172+6.2036928E-7*
        gradb*t63*t62*t172-2.440046592E-9*gradb*t60*t137*t172+0.001257792*
        t202*t66*t171-6.057216E-5*t202*t59*t64*t171+1.3555537919999999E-6*
        t202*t65*t62*t171-1.2324524543999998E-8*t202*t63*t137*t171+
        3.660069888E-11*t202*t60*t263*t171)*t147-0.03109*t145*t203*
        t146+0.002129457733333*t1*t2*t3*t145*t203*t142;
    d2fdrbgab = 0.0;
    d2fdgaga = -0.03109*t19*(-0.41916*t32*t22+2.809896*t21*
        t30*t31-4.595107200000001*t29*t27*t28+2.664087040000001*t26*
        t24*t25-0.617723392*t20*t43*t191+0.049380352*t42*t207*t284)*
        t34*rhoa-0.75*(-0.0032936*t40*t22+5.337375999999999E-4*t21*
        t39*t31-3.158297599999999E-6*t29*t38*t28-3.215902720000001E-8*
        t26*t37*t25+2.566823936E-10*t20*t55*t191-4.43318272E-13*t42*
        t219*t284)*t3*t35*t51+(0.018162*t22*t67-8.34372E-4*t22*t59*
        t66-9.43344E-4*t21*t31*t66+1.7708328E-5*t22*t65*t64+4.542912E-5*
        t21*t31*t59*t64-2.3263848E-7*t22*t63*t62-1.016665344E-6*t21*
        t31*t65*t62+9.15017472E-10*t22*t60*t137+9.243393408E-9*t21*
        t31*t63*t137-2.745052416E-11*t21*t31*t60*t263)*t147;
    d2fdgagb = (-9.43344E-4*grada*gradb*t22*t66*t58+4.542912E-5*
        grada*gradb*t22*t59*t64*t58-1.016665344E-6*grada*gradb*t22*
        t65*t62*t58+9.243393408E-9*grada*gradb*t22*t63*t137*t58-2.745052416E-11*
        grada*gradb*t22*t60*t263*t58)*t147;
    d2fdgagab = 0.0;
    d2fdgbgb = -0.03109*t145*(-0.41916*t158*t58+2.809896*
        t57*t156*t157-4.595107200000001*t155*t153*t154+2.664087040000001*
        t152*t150*t151-0.617723392*t148*t167*t199+0.049380352*t166*
        t268*t285)*t146*rhob-0.75*t175*t3*t35*(-0.0032936*t164*t58+
        5.337375999999999E-4*t57*t163*t157-3.158297599999999E-6*t155*
        t162*t154-3.215902720000001E-8*t152*t161*t151+2.566823936E-10*
        t148*t179*t199-4.43318272E-13*t166*t280*t285)+(0.018162*t67*
        t58-8.34372E-4*t59*t66*t58+1.7708328E-5*t65*t64*t58-2.3263848E-7*
        t63*t62*t58+9.15017472E-10*t60*t137*t58-9.43344E-4*t57*t66*
        t157+4.542912E-5*t57*t59*t64*t157-1.016665344E-6*t57*t65*t62*
        t157+9.243393408E-9*t57*t63*t137*t157-2.745052416E-11*t57*
        t60*t263*t157)*t147;
    d2fdgbgab = 0.0;
    d2fdgabgab = 0.0;


    ds->df1000 += factor*dfdra;
    ds->df0100 += factor*dfdrb;
    ds->df0010 += factor*dfdga;
    ds->df0001 += factor*dfdgb;
    ds->df00001+= factor*dfdgab;

    ds->df2000 += factor*d2fdrara;
    ds->df1100 += factor*d2fdrarb;
    ds->df1010 += factor*d2fdraga;
    ds->df1001 += factor*d2fdragb;
    ds->df10001+= factor*d2fdraab;
    ds->df0200 += factor*d2fdrbrb;
    ds->df0110 += factor*d2fdrbga;
    ds->df0101 += factor*d2fdrbgb;
    ds->df01001+= factor*d2fdrbgab;
    ds->df0020 += factor*d2fdgaga;
    ds->df0011 += factor*d2fdgagb;
    ds->df00101+= factor*d2fdgagab;
    ds->df0002 += factor*d2fdgbgb;
    ds->df00011+= factor*d2fdgbgab;
    ds->df00002+= factor*d2fdgabgab;

}

static void
hcth407p_third(FunThirdFuncDrv *ds, real factor, const FunDensProp* dp)
{
    real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
    real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
        d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
        d2fdgbgb, d2fdgbgab, d2fdgabgab;
    real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
         d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
         d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
         d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
         d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
         d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
         d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
    real rhoa = dp->rhoa, rhob = dp->rhob;
    real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;

    real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
    real t11, t12, t13, t14, t15, t16, t17, t18;
    real t19, t20, t21, t22, t23, t24, t25, t26;
    real t27, t28, t29, t30, t31, t32, t33, t34;
    real t35, t36, t37, t38, t39, t40, t41, t42;
    real t43, t44, t45, t46, t47, t48, t49, t50;
    real t51, t52, t53, t54, t55, t56, t57, t58;
    real t59, t60, t61, t62, t63, t64, t65, t66;
    real t67, t68, t69, t70, t71, t72, t73, t74;
    real t75, t76, t77, t78, t79, t80, t81, t82;
    real t83, t84, t85, t86, t87, t88, t89, t90;
    real t91, t92, t93, t94, t95, t96, t97, t98;
    real t99, t100, t101, t102, t103, t104, t105;
    real t106, t107, t108, t109, t110, t111, t112;
    real t113, t114, t115, t116, t117, t118, t119;
    real t120, t121, t122, t123, t124, t125, t126;
    real t127, t128, t129, t130, t131, t132, t133;
    real t134, t135, t136, t137, t138, t139, t140;
    real t141, t142, t143, t144, t145, t146, t147;
    real t148, t149, t150, t151, t152, t153, t154;
    real t155, t156, t157, t158, t159, t160, t161;
    real t162, t163, t164, t165, t166, t167, t168;
    real t169, t170, t171, t172, t173, t174, t175;
    real t176, t177, t178, t179, t180, t181, t182;
    real t183, t184, t185, t186, t187, t188, t189;
    real t190, t191, t192, t193, t194, t195, t196;
    real t197, t198, t199, t200, t201, t202, t203;
    real t204, t205, t206, t207, t208, t209, t210;
    real t211, t212, t213, t214, t215, t216, t217;
    real t218, t219, t220, t221, t222, t223, t224;
    real t225, t226, t227, t228, t229, t230, t231;
    real t232, t233, t234, t235, t236, t237, t238;
    real t239, t240, t241, t242, t243, t244, t245;
    real t246, t247, t248, t249, t250, t251, t252;
    real t253, t254, t255, t256, t257, t258, t259;
    real t260, t261, t262, t263, t264, t265, t266;
    real t267, t268, t269, t270, t271, t272, t273;
    real t274, t275, t276, t277, t278, t279, t280;
    real t281, t282, t283, t284, t285, t286, t287;
    real t288, t289, t290, t291, t292, t293, t294;
    real t295, t296, t297, t298, t299, t300, t301;
    real t302, t303, t304, t305, t306, t307, t308;
    real t309, t310, t311, t312, t313, t314, t315;
    real t316, t317, t318, t319, t320, t321, t322;
    real t323, t324, t325, t326, t327, t328, t329;
    real t330, t331, t332, t333, t334, t335, t336;
    real t337, t338, t339, t340, t341, t342, t343;
    real t344, t345, t346, t347, t348, t349, t350;
    real t351, t352, t353, t354, t355, t356, t357;
    real t358, t359, t360, t361, t362, t363, t364;
    real t365, t366, t367, t368, t369, t370, t371;
    real t372, t373, t374, t375, t376, t377, t378;
    real t379, t380, t381, t382, t383, t384, t385;
    real t386, t387, t388, t389, t390, t391, t392;
    real t393, t394, t395, t396, t397, t398, t399;
    real t400, t401, t402, t403, t404, t405, t406;
    real t407, t408, t409, t410, t411, t412, t413;
    real t414, t415, t416, t417, t418, t419, t420;
    real t421, t422, t423, t424, t425, t426, t427;
    real t428, t429, t430, t431, t432, t433, t434;
    real t435, t436, t437, t438, t439, t440, t441;
    real t442, t443, t444, t445, t446, t447, t448;
    real t449, t450, t451, t452, t453, t454, t455;
    real t456, t457, t458, t459, t460, t461, t462;
    real t463, t464, t465, t466, t467, t468, t469;
    real t470, t471, t472, t473, t474, t475, t476;
    real t477, t478, t479, t480, t481, t482, t483;
    real t484, t485, t486;

    t1 = pow(3.0,0.333333333333333);
    t2 = 1/pow(4.0,0.333333333333333);
    t3 = 1/pow(3.141592653589793,0.333333333333333);
    t4 = pow(3.0,0.666666666666667);
    t5 = 1/pow(4.0,0.666666666666667);
    t6 = 1/pow(3.141592653589793,0.666666666666667);
    t7 = 1/pow(rhoa,0.666666666666667);
    t8 = 1.732050807568877;
    t9 = 0.564189583547756;
    t10 = sqrt(rhoa);
    t11 = pow(rhoa,0.333333333333333);
    t12 = 1/t11;
    t13 = pow(2.0,0.333333333333333);
    t14 = 1/t13;
    t15 = pow(3.0,0.166666666666667);
    t16 = 1/pow(3.141592653589793,0.166666666666667);
    t17 = 14.1189*t14*t15*t16/pow(rhoa,0.166666666666667)+
        1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
    t18 = 32.1646831778707/
        t17+1.0;
    t19 = log(t18);
    t20 = pow(grada,8.0);
    t21 = pow(grada,2.0);
    t22 = 1/pow(rhoa,2.666666666666667);
    t23 = 0.2*t21*t22+1.0;
    t24 = 1/pow(t23,4.0);
    t25 = 1/pow(rhoa,10.66666666666667);
    t26 = pow(grada,6.0);
    t27 = 1/pow(t23,3.0);
    t28 = 1/pow(rhoa,8.0);
    t29 = pow(grada,4.0);
    t30 = 1/pow(t23,2.0);
    t31 = 1/pow(rhoa,5.333333333333333);
    t32 = 1/t23;
    t33 = -0.20958*t21*t32*t22+0.199228*t29*t30*t31-0.10312*
        t26*t27*t28+0.01543136*t20*t24*t25+0.80302;
    t34 = 0.20548*t1*t2*t3*t12+1.0;
    t35 = pow(6.0,0.333333333333333);
    t36 = 0.004*t21*t22+1.0;
    t37 = 1/pow(t36,4.0);
    t38 = 1/pow(t36,3.0);
    t39 = 1/pow(t36,2.0);
    t40 = 1/t36;
    t41 = -0.0016468*t21*t40*t22+3.89888E-5*t29*t39*t31+8.8896E-8*
        t26*t38*t28-3.463424E-10*t20*t37*t25+1.08018;
    t42 = pow(grada,10.0);
    t43 = 1/pow(t23,5.0);
    t44 = 1/pow(rhoa,14.33333333333333);
    t45 = 1/pow(rhoa,11.66666666666667);
    t46 = 1/pow(rhoa,9.0);
    t47 = 1/pow(rhoa,6.333333333333333);
    t48 = 1/pow(rhoa,3.666666666666667);
    t49 = 0.55888*t21*t32*t48-1.174325333333333*t29*t30*t47+
        1.037469866666667*t26*t27*t46-0.329593173333333*t20*t24*t45+
        0.032920234666667*t42*t43*t44;
    t50 = 1/t18;
    t51 = 1/pow(rhoa,1.666666666666667);
    t52 = pow(rhoa,1.333333333333333);
    t53 = 1/t52;
    t54 = -2.35315*t14*t15*t16/pow(rhoa,1.166666666666667)-
        0.84155*t8*t9/pow(t10,3.0)-2.0659*t1*t2*t3*t53-0.41678*t4*
        t5*t6*t51;
    t55 = 1/pow(t17,2.0);
    t56 = 1/pow(t36,5.0);
    t57 = 0.004391466666667*t21*t40*t48-2.255061333333333E-4*
        t29*t39*t47+1.205930666666665E-7*t26*t38*t46+6.538990933333333E-9*
        t20*t37*t45-1.477727573333333E-11*t42*t56*t44;
    t58 = pow(gradb,2.0);
    t59 = 1/pow(rhob,2.666666666666667);
    t60 = 0.5*t58*t59+0.5*t21*t22;
    t61 = pow(t60,4.0);
    t62 = 0.006*t60+1.0;
    t63 = 1/pow(t62,4.0);
    t64 = pow(t60,3.0);
    t65 = 1/pow(t62,3.0);
    t66 = pow(t60,2.0);
    t67 = 1/pow(t62,2.0);
    t68 = 1/t62;
    t69 = 0.018162*t60*t68-3.627E-4*t66*t67+4.451976E-6*t64*
        t65-3.8125728E-8*t61*t63+0.73604;
    t70 = rhob+rhoa;
    t71 = 1/pow(t70,0.333333333333333);
    t72 = 0.2137*t1*t2*t3*t71+1.0;
    t73 = 1/pow(t70,0.666666666666667);
    t74 = sqrt(t70);
    t75 = 1/t74;
    t76 = 1/pow(t70,0.166666666666667);
    t77 = 7.5957*t14*t15*t16*t76+3.5876*t1*t2*t3*t71+0.8191*
        t8*t9*t75+0.49294*t4*t5*t6*t73;
    t78 = 16.0818243221511/t77+1.0;
    t79 = log(t78);
    t80 = -0.062182*t72*t79;
    t81 = 1/(2.0*t13-2.0);
    t82 = rhoa-1.0*rhob;
    t83 = pow(t82,4.0);
    t84 = 1/pow(t70,4.0);
    t85 = 1.0-1.0*t83*t84;
    t86 = 0.11125*t1*t2*t3*t71+1.0;
    t87 = 1/t70;
    t88 = 1.0-1.0*t82*t87;
    t89 = t82*t87+1.0;
    t90 = pow(t89,1.333333333333333)+pow(t88,1.333333333333333)-
        2.0;
    t91 = 10.357*t14*t15*t16*t76+3.6231*t1*t2*t3*t71+0.44013*
        t8*t9*t75+0.49671*t4*t5*t6*t73;
    t92 = 29.60857464321668/t91+1.0;
    t93 = log(t92);
    t94 = 0.019751789702565*t81*t85*t86*t90*t93;
    t95 = 0.20548*t1*t2*t3*t71+1.0;
    t96 = 14.1189*t14*t15*t16*t76+6.1977*t1*t2*t3*t71+1.6831*
        t8*t9*t75+0.62517*t4*t5*t6*t73;
    t97 = 32.1646831778707/t96+1.0;
    t98 = log(t97);
    t99 = 0.062182*t72*t79-0.03109*t95*t98;
    t100 = t81*t83*t84*t90*t99;
    t101 = 1/pow(t70,1.666666666666667);
    t102 = 1/pow(t74,3.0);
    t103 = 1/pow(t70,1.333333333333333);
    t104 = 1/pow(t70,1.166666666666667);
    t105 = -1.26595*t14*t15*t16*t104-1.195866666666667*t1*
        t2*t3*t103-0.40955*t8*t9*t102-0.328626666666667*t4*t5*t6*t101;
    t106 = 1/
        pow(t77,2.0);
    t107 = 1/t78;
    t108 = 1.0*t105*t72*t106*t107;
    t109 = -1.726166666666666*t14*t15*t16*t104-1.2077*t1*
        t2*t3*t103-0.220065*t8*t9*t102-0.33114*t4*t5*t6*t101;
    t110 = 1/pow(t91,2.0);
    t111 = 1/t92;
    t112 = -0.58482233974552*t81*t85*t109*t86*t110*t90*t111;
    t113 = 0.004429431133333*
        t1*t2*t3*t103*t79;
    t114 = 1/pow(t70,2.0);
    t115 = t82*t114;
    t116 = -1.0*t87;
    t117 = t116+t115;
    t118 = pow(t88,0.333333333333333);
    t119 = -1.0*t114*t82;
    t120 = t87+t119;
    t121 = pow(t89,0.333333333333333);
    t122 = 1.333333333333333*t120*t121+1.333333333333333*
        t117*t118;
    t123 = 0.019751789702565*t81*t85*t86*t122*t93;
    t124 = -7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t90*
        t93;
    t125 = 1/pow(t70,5.0);
    t126 = 4.0*t125*t83;
    t127 = pow(t82,3.0);
    t128 = t126-4.0*t127*t84;
    t129 = 0.019751789702565*t81*t128*t86*t90*t93;
    t130 = -2.35315*t14*t15*t16*t104-2.0659*t1*t2*t3*t103-
        0.84155*t8*t9*t102-0.41678*t4*t5*t6*t101;
    t131 = 1/pow(t96,2.0);
    t132 = 1/t97;
    t133 = 0.002129457733333*t1*t2*t3*t103*t98-0.004429431133333*
        t1*t2*t3*t103*t79+t130*t95*t131*t132-1.0*t105*t72*t106*t107;
    t134 = t81*
        t83*t84*t90*t133;
    t135 = t81*t83*t84*t122*t99;
    t136 = -4.0*t125*t81*t83*t90*t99;
    t137 = -1.0*t50*t54*t34*t55*rhoa+t70*(4.0*t127*t81*t84*
        t90*t99+t136+t135+t134+t129+t124+t123+t113+t112+t108)+t94+
        t80+0.03109*t19*t34-0.002129457733333*t1*t2*t3*t19*t12+t100;
    t138 = 1/
        pow(t62,5.0);
    t139 = -0.024216*t21*t48*t68+0.001112496*t21*t48*t60*
        t67-2.3611104E-5*t21*t48*t66*t65+3.1018464E-7*t21*t48*t64*
        t63-1.220023296E-9*t21*t48*t61*t138;
    t140 = 1/pow(rhob,0.666666666666667);
    t141 = sqrt(rhob);
    t142 = pow(rhob,0.333333333333333);
    t143 = 1/t142;
    t144 = 14.1189*t14*t15*t16/pow(rhob,0.166666666666667)+
        1.6831*t8*t9/t141+6.1977*t1*t2*t3*t143+0.62517*t4*t5*t6*t140;
    t145 = 32.1646831778707/
        t144+1.0;
    t146 = log(t145);
    t147 = 0.20548*t1*t2*t3*t143+1.0;
    t148 = t70*(t100+t94+t80)+0.03109*t146*t147*rhob+0.03109*
        t19*t34*rhoa;
    t149 = pow(gradb,8.0);
    t150 = 0.2*t58*t59+1.0;
    t151 = 1/pow(t150,4.0);
    t152 = 1/pow(rhob,10.66666666666667);
    t153 = pow(gradb,6.0);
    t154 = 1/pow(t150,3.0);
    t155 = 1/pow(rhob,8.0);
    t156 = pow(gradb,4.0);
    t157 = 1/pow(t150,2.0);
    t158 = 1/pow(rhob,5.333333333333333);
    t159 = 1/t150;
    t160 = -0.20958*t58*t159*t59+0.199228*t156*t157*t158-
        0.10312*t153*t154*t155+0.01543136*t149*t151*t152+0.80302;
    t161 = 0.004*
        t58*t59+1.0;
    t162 = 1/pow(t161,4.0);
    t163 = 1/pow(t161,3.0);
    t164 = 1/pow(t161,2.0);
    t165 = 1/t161;
    t166 = -0.0016468*t58*t165*t59+3.89888E-5*t156*t164*t158+
        8.8896E-8*t153*t163*t155-3.463424E-10*t149*t162*t152+1.08018;
    t167 = pow(gradb,
        10.0);
    t168 = 1/pow(t150,5.0);
    t169 = 1/pow(rhob,14.33333333333333);
    t170 = 1/pow(rhob,11.66666666666667);
    t171 = 1/pow(rhob,9.0);
    t172 = 1/pow(rhob,6.333333333333333);
    t173 = 1/pow(rhob,3.666666666666667);
    t174 = 0.55888*t58*t159*t173-1.174325333333333*t156*t157*
        t172+1.037469866666667*t153*t154*t171-0.329593173333333*t149*
        t151*t170+0.032920234666667*t167*t168*t169;
    t175 = 1/t145;
    t176 = 1/pow(rhob,1.666666666666667);
    t177 = pow(rhob,1.333333333333333);
    t178 = 1/t177;
    t179 = -2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-
        0.84155*t8*t9/pow(t141,3.0)-2.0659*t1*t2*t3*t178-0.41678*t4*
        t5*t6*t176;
    t180 = 1/pow(t144,2.0);
    t181 = 1/pow(t161,5.0);
    t182 = 0.004391466666667*t58*t165*t173-2.255061333333333E-4*
        t156*t164*t172+1.205930666666665E-7*t153*t163*t171+6.538990933333333E-9*
        t149*t162*t170-1.477727573333333E-11*t167*t181*t169;
    t183 = t87+t115;
    t184 = t116+t119;
    t185 = 1.333333333333333*t121*t184+1.333333333333333*
        t118*t183;
    t186 = 0.019751789702565*t81*t85*t86*t185*t93;
    t187 = 4.0*t127*t84+t126;
    t188 = 0.019751789702565*t81*t187*t86*t90*t93;
    t189 = t81*t83*t84*t185*t99;
    t190 = -1.0*t175*t179*t147*t180*rhob+t70*(-4.0*t127*t81*
        t84*t90*t99+t189+t188+t186+t136+t134+t124+t113+t112+t108)+
        t94+t80+0.03109*t146*t147-0.002129457733333*t1*t2*t3*t146*
        t143+t100;
    t191 = -0.024216*t58*t68*t173+0.001112496*t58*t60*t67*
        t173-2.3611104E-5*t58*t66*t65*t173+3.1018464E-7*t58*t64*t63*
        t173-1.220023296E-9*t58*t61*t138*t173;
    t192 = pow(grada,9.0);
    t193 = 1/pow(rhoa,13.33333333333333);
    t194 = pow(grada,7.0);
    t195 = pow(grada,5.0);
    t196 = pow(grada,3.0);
    t197 = -0.41916*grada*t32*t22+0.880744*t196*t30*t31-0.7781024*
        t195*t27*t28+0.24719488*t194*t24*t25-0.024690176*t192*t43*
        t193;
    t198 = -0.0032936*grada*t40*t22+1.6912959999999997E-4*
        t196*t39*t31-9.04447999999999E-8*t195*t38*t28-4.9042432E-9*
        t194*t37*t25+1.10829568E-11*t192*t56*t193;
    t199 = 0.018162*grada*t22*t68-8.34372E-4*grada*t22*t60*
        t67+1.7708328E-5*grada*t22*t66*t65-2.3263848E-7*grada*t22*
        t64*t63+9.15017472E-10*grada*t22*t61*t138;
    t200 = pow(gradb,9.0);
    t201 = 1/pow(rhob,13.33333333333333);
    t202 = pow(gradb,7.0);
    t203 = pow(gradb,5.0);
    t204 = pow(gradb,3.0);
    t205 = -0.41916*gradb*t159*t59+0.880744*t204*t157*t158-
        0.7781024*t203*t154*t155+0.24719488*t202*t151*t152-0.024690176*
        t200*t168*t201;
    t206 = -0.0032936*gradb*t165*t59+1.6912959999999997E-4*
        t204*t164*t158-9.04447999999999E-8*t203*t163*t155-4.9042432E-9*
        t202*t162*t152+1.10829568E-11*t200*t181*t201;
    t207 = 0.018162*gradb*t68*t59-8.34372E-4*gradb*t60*t67*
        t59+1.7708328E-5*gradb*t66*t65*t59-2.3263848E-7*gradb*t64*
        t63*t59+9.15017472E-10*gradb*t61*t138*t59;
    t208 = pow(grada,12.0);
    t209 = 1/pow(t23,6.0);
    t210 = 1/pow(rhoa,18.0);
    t211 = 1/pow(rhoa,15.33333333333333);
    t212 = 1/pow(rhoa,12.66666666666667);
    t213 = 1/pow(rhoa,10.0);
    t214 = 1/pow(rhoa,7.333333333333333);
    t215 = 1/pow(rhoa,4.666666666666667);
    t216 = -2.049226666666667*t21*t32*t215+7.735463111111112*
        t29*t30*t214-10.58984248888889*t26*t27*t213+5.505205475555558*
        t20*t24*t212-1.174988800000001*t42*t43*t211+0.087787292444444*
        t208*t209*t210;
    t217 = 1/pow(t18,2.0);
    t218 = pow(t54,2.0);
    t219 = 1/pow(t17,4.0);
    t220 = 1/pow(t17,3.0);
    t221 = 1/pow(rhoa,2.333333333333333);
    t222 = 2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
        1.262325*t8*t9/pow(t10,5.0)+2.754533333333333*t1*t2*t3*t221+
        0.694633333333333*t4*t5*t6*t22;
    t223 = 1/pow(t36,6.0);
    t224 = -0.016102044444444*t21*t40*t215+0.001475047822222*
        t29*t39*t214-5.896135111111109E-6*t26*t38*t213-7.242924942222222E-8*
        t20*t37*t212+4.90804565333333E-10*t42*t56*t211-7.88121372444444E-13*
        t208*t223*t210;
    t225 = 2.0*t105*t72*t106*t107;
    t226 = -1.169644679491041*t81*t85*t109*t86*t110*t90*t111;
    t227 = 0.008858862266667*
        t1*t2*t3*t103*t79;
    t228 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t90*t93;
    t229 = 2.0*
        t133*t81*t83*t84*t90;
    t230 = -8.0*t125*t81*t83*t90*t99;
    t231 = pow(t105,2.0);
    t232 = 1/pow(t77,4.0);
    t233 = 1/pow(t78,2.0);
    t234 = 16.0818243221511*t231*t72*t232*t233;
    t235 = 1/pow(t77,3.0);
    t236 = -2.0*t231*t72*t235*t107;
    t237 = -0.142466666666667*t1*t2*t3*t103*t105*t106*t107;
    t238 = 1/
        pow(t70,2.666666666666667);
    t239 = 1/pow(t74,5.0);
    t240 = 1/pow(t70,2.333333333333333);
    t241 = 1/pow(t70,2.166666666666667);
    t242 = 1.476941666666667*t14*t15*t16*t241+1.594488888888889*
        t1*t2*t3*t240+0.614325*t8*t9*t239+0.547711111111111*t4*t5*
        t6*t238;
    t243 = 1.0*t242*t72*t106*t107;
    t244 = pow(t109,2.0);
    t245 = 1/pow(t91,4.0);
    t246 = 1/pow(t92,2.0);
    t247 = -17.31575589937587*t81*t85*t244*t86*t245*t90*t246;
    t248 = -
        1.169644679491041*t81*t85*t109*t86*t110*t122*t111;
    t249 = 1/pow(t91,3.0);
    t250 = 1.169644679491041*t81*t85*t244*t86*t249*t90*t111;
    t251 = 0.043374323531126*
        t81*t1*t2*t3*t103*t85*t109*t110*t90*t111;
    t252 = 2.013861111111111*t14*t15*t16*t241+1.610266666666667*
        t1*t2*t3*t240+0.3300975*t8*t9*t239+0.5519*t4*t5*t6*t238;
    t253 = -
        0.58482233974552*t81*t85*t252*t86*t110*t90*t111;
    t254 = -1.169644679491041*t81*t128*t109*t86*t110*t90*
        t111;
    t255 = -0.005905908177778*t1*t2*t3*t240*t79;
    t256 = pow(t117,2.0);
    t257 = 1/pow(t88,0.666666666666667);
    t258 = 1/pow(t70,3.0);
    t259 = -2.0*t258*t82;
    t260 = 2.0*t114;
    t261 = t260+t259;
    t262 = pow(t120,2.0);
    t263 = 1/pow(t89,0.666666666666667);
    t264 = 2.0*t258*t82;
    t265 = -2.0*t114;
    t266 = t265+t264;
    t267 = 1.333333333333333*t121*t266+0.444444444444444*
        t262*t263+1.333333333333333*t118*t261+0.444444444444444*t256*
        t257;
    t268 = 0.019751789702565*t81*t85*t86*t267*t93;
    t269 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t122*t93;
    t270 = 0.03950357940513*
        t81*t128*t86*t122*t93;
    t271 = -0.00146492440294*t81*t1*t2*t3*t103*t128*t90*t93;
    t272 = 9.76616268626835E-4*t81*t1*t2*t3*t240*t85*t90*
        t93;
    t273 = 1/pow(t70,6.0);
    t274 = -20.0*t273*t83;
    t275 = pow(t82,2.0);
    t276 = -12.0*t275*t84;
    t277 = t276+t274+32.0*t125*t127;
    t278 = 0.019751789702565*t81*t277*t86*t90*t93;
    t279 = pow(t130,2.0);
    t280 = 1/pow(t96,4.0);
    t281 = 1/pow(t97,2.0);
    t282 = 1/pow(t96,3.0);
    t283 = 2.745341666666667*t14*t15*t16*t241+2.754533333333333*
        t1*t2*t3*t240+1.262325*t8*t9*t239+0.694633333333333*t4*t5*
        t6*t238;
    t284 = -0.002839276977778*t1*t2*t3*t240*t98-2.0*t132*
        t279*t282*t95+0.005905908177778*t1*t2*t3*t240*t79+32.1646831778707*
        t279*t95*t280*t281-16.0818243221511*t231*t72*t232*t233+t283*
        t95*t131*t132-0.136986666666667*t1*t2*t3*t103*t130*t131*t132+
        2.0*t231*t72*t235*t107-1.0*t242*t72*t106*t107+0.142466666666667*
        t1*t2*t3*t103*t105*t106*t107;
    t285 = t81*t83*t84*t90*t284;
    t286 = 2.0*t122*t133*t81*t83*t84;
    t287 = -8.0*t125*t133*t81*t83*t90;
    t288 = 8.0*t127*t133*t81*t84*t90;
    t289 = t81*t83*t84*t267*t99;
    t290 = -8.0*t122*t125*t81*t83*t99;
    t291 = 20.0*t273*t81*t83*t90*t99;
    t292 = -32.0*t125*t127*t81*t90*t99;
    t293 = 12.0*t275*t81*t84*t90*t99;
    t294 = -1.0*t50*t222*t34*t55*rhoa+2.0*t50*t218*t34*t220*
        rhoa-32.1646831778707*t217*t218*t34*t219*rhoa+t70*(8.0*t122*
        t127*t81*t84*t99+t293+t292+t291+t290+t289+t288+t287+t286+t285+
        t278+t272+t271+t270+t269+t268+t255+t254+t253+t251+t250+t248+
        t247+t243+t237+t236+t234)+8.0*t127*t81*t84*t90*t99+2.0*t122*
        t81*t83*t84*t99+0.03950357940513*t81*t128*t86*t90*t93+0.03950357940513*
        t81*t85*t86*t122*t93-2.0*t50*t54*t34*t55-0.001419638488889*
        t1*t2*t3*t19*t53+t230+t229+t228+t227+t226+t225+0.136986666666667*
        t1*t2*t3*t50*t54*t55*t12;
    t295 = 1/pow(t62,6.0);
    t296 = 0.088792*t21*t215*t68-0.004079152*t21*t215*t60*
        t67-0.001677056*t29*t214*t67+8.6574048E-5*t21*t215*t66*t65+
        8.076287999999999E-5*t29*t214*t60*t65-1.13734368E-6*t21*t215*
        t64*t63-1.807405056E-6*t29*t214*t66*t63+4.473418752E-9*t21*
        t215*t61*t138+1.6432699391999998E-8*t29*t214*t64*t138-4.880093184E-11*
        t29*t214*t61*t295;
    t297 = 2.666666666666667*t121*t258*t82-2.666666666666667*
        t118*t258*t82+0.444444444444444*t120*t184*t263+0.444444444444444*
        t117*t183*t257;
    t298 = 12.0*t275*t84+t274;
    t299 = -12.0*t275*t81*t84*t90*t99;
    t300 = t70*(4.0*t127*t185*t81*t84*t99-4.0*t122*t127*t81*
        t84*t99-4.0*t125*t185*t81*t83*t99-4.0*t122*t125*t81*t83*t99+
        t81*t83*t84*t297*t99+0.019751789702565*t81*t298*t86*t90*t93-
        7.324622014701263E-4*t81*t1*t2*t3*t103*t187*t90*t93-7.324622014701263E-4*
        t81*t1*t2*t3*t103*t128*t90*t93+0.019751789702565*t81*t85*t86*
        t297*t93+0.019751789702565*t81*t128*t86*t185*t93-7.324622014701263E-4*
        t81*t1*t2*t3*t103*t85*t185*t93+0.019751789702565*t81*t187*
        t86*t122*t93-7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t122*
        t93+t299+t291+t287+t285+t272+t255+t253+t251+t250+t247+t243+
        t237+t236+t234+t81*t83*t84*t185*t133+t81*t83*t84*t122*t133-
        0.58482233974552*t81*t187*t109*t86*t110*t90*t111-0.58482233974552*
        t81*t128*t109*t86*t110*t90*t111-0.58482233974552*t81*t85*t109*
        t86*t110*t185*t111-0.58482233974552*t81*t85*t109*t86*t110*
        t122*t111)+t230+t229+t228+t227+t226+t225+t189+t188+t186+t135+
        t129+t123;
    t301 = -0.001677056*t21*t58*t48*t67*t173+8.076287999999999E-5*
        t21*t58*t48*t60*t65*t173-1.807405056E-6*t21*t58*t48*t66*t63*
        t173+1.6432699391999998E-8*t21*t58*t48*t64*t138*t173-4.880093184E-11*
        t21*t58*t48*t61*t295*t173;
    t302 = pow(grada,11.0);
    t303 = 1/pow(rhoa,17.0);
    t304 = 1.11776*grada*t32*t48-4.920853333333334*t196*t30*
        t47+7.164279466666668*t195*t27*t46-3.881709226666668*t194*
        t24*t45+0.856551424*t192*t43*t44-0.065840469333333*t302*t209*
        t303;
    t305 = 0.008782933333333*grada*t40*t48-9.371562666666666E-4*
        t196*t39*t47+4.331656533333332E-6*t195*t38*t46+4.941769386666667E-8*
        t194*t37*t45-3.570204672E-10*t192*t56*t44+5.91091029333333E-13*
        t302*t223*t303;
    t306 = -0.048432*grada*t48*t68+0.002224992*grada*t48*
        t60*t67+0.001257792*t196*t47*t67-4.7222208E-5*grada*t48*t66*
        t65-6.057216E-5*t196*t47*t60*t65+6.2036928E-7*grada*t48*t64*
        t63+1.3555537919999999E-6*t196*t47*t66*t63-2.440046592E-9*
        grada*t48*t61*t138-1.2324524543999998E-8*t196*t47*t64*t138+
        3.660069888E-11*t196*t47*t61*t295;
    t307 = 0.001257792*t21*gradb*t48*t67*t59-6.057216E-5*
        t21*gradb*t48*t60*t65*t59+1.3555537919999999E-6*t21*gradb*
        t48*t66*t63*t59-1.2324524543999998E-8*t21*gradb*t48*t64*t138*
        t59+3.660069888E-11*t21*gradb*t48*t61*t295*t59;
    t308 = pow(gradb,12.0);
    t309 = 1/pow(t150,6.0);
    t310 = 1/pow(rhob,18.0);
    t311 = 1/pow(rhob,15.33333333333333);
    t312 = 1/pow(rhob,12.66666666666667);
    t313 = 1/pow(rhob,10.0);
    t314 = 1/pow(rhob,7.333333333333333);
    t315 = 1/pow(rhob,4.666666666666667);
    t316 = -2.049226666666667*t58*t159*t315+7.735463111111112*
        t156*t157*t314-10.58984248888889*t153*t154*t313+5.505205475555558*
        t149*t151*t312-1.174988800000001*t167*t168*t311+0.087787292444444*
        t308*t309*t310;
    t317 = 1/pow(t145,2.0);
    t318 = pow(t179,2.0);
    t319 = 1/pow(t144,4.0);
    t320 = 1/pow(t144,3.0);
    t321 = 1/pow(rhob,2.333333333333333);
    t322 = 2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
        1.262325*t8*t9/pow(t141,5.0)+0.694633333333333*t4*t5*t6*t59+
        2.754533333333333*t1*t2*t3*t321;
    t323 = 1/pow(t161,6.0);
    t324 = -0.016102044444444*t58*t165*t315+0.001475047822222*
        t156*t164*t314-5.896135111111109E-6*t153*t163*t313-7.242924942222222E-8*
        t149*t162*t312+4.90804565333333E-10*t167*t181*t311-7.88121372444444E-13*
        t308*t323*t310;
    t325 = -1.169644679491041*t81*t85*t109*t86*t110*t185*
        t111;
    t326 = -1.169644679491041*t81*t187*t109*t86*t110*t90*
        t111;
    t327 = pow(t183,2.0);
    t328 = t265+t259;
    t329 = pow(t184,2.0);
    t330 = t260+t264;
    t331 = 1.333333333333333*t121*t330+0.444444444444444*
        t263*t329+1.333333333333333*t118*t328+0.444444444444444*t257*
        t327;
    t332 = 0.019751789702565*t81*t85*t86*t331*t93;
    t333 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t185*t93;
    t334 = 0.03950357940513*
        t81*t187*t86*t185*t93;
    t335 = -0.00146492440294*t81*t1*t2*t3*t103*t187*t90*t93;
    t336 = t276+
        t274-32.0*t125*t127;
    t337 = 0.019751789702565*t81*t336*t86*t90*t93;
    t338 = 2.0*t133*t185*t81*t83*t84;
    t339 = -8.0*t127*t133*t81*t84*t90;
    t340 = t81*t83*t84*t331*t99;
    t341 = -8.0*t125*t185*t81*t83*t99;
    t342 = 32.0*t125*t127*t81*t90*t99;
    t343 = 2.0*t175*t318*t147*t320*rhob-32.1646831778707*
        t317*t318*t147*t319*rhob-1.0*t175*t322*t147*t180*rhob+t70*
        (-8.0*t127*t185*t81*t84*t99+t342+t341+t340+t339+t338+t337+
        t335+t334+t333+t332+t326+t325+t293+t291+t287+t285+t272+t255+
        t253+t251+t250+t247+t243+t237+t236+t234)-8.0*t127*t81*t84*
        t90*t99+2.0*t185*t81*t83*t84*t99+0.03950357940513*t81*t187*
        t86*t90*t93+0.03950357940513*t81*t85*t86*t185*t93+t230+t229+
        t228+t227+t226+t225-2.0*t175*t179*t147*t180-0.001419638488889*
        t1*t2*t3*t146*t178+0.136986666666667*t1*t2*t3*t175*t179*t180*
        t143;
    t344 = 0.088792*t58*t68*t315-0.004079152*t58*t60*t67*
        t315+8.6574048E-5*t58*t66*t65*t315-1.13734368E-6*t58*t64*t63*
        t315+4.473418752E-9*t58*t61*t138*t315-0.001677056*t156*t67*
        t314+8.076287999999999E-5*t156*t60*t65*t314-1.807405056E-6*
        t156*t66*t63*t314+1.6432699391999998E-8*t156*t64*t138*t314-
        4.880093184E-11*t156*t61*t295*t314;
    t345 = 0.001257792*grada*t58*t22*t67*t173-6.057216E-5*
        grada*t58*t22*t60*t65*t173+1.3555537919999999E-6*grada*t58*
        t22*t66*t63*t173-1.2324524543999998E-8*grada*t58*t22*t64*t138*
        t173+3.660069888E-11*grada*t58*t22*t61*t295*t173;
    t346 = pow(gradb,11.0);
    t347 = 1/pow(rhob,17.0);
    t348 = 1.11776*gradb*t159*t173-4.920853333333334*t204*
        t157*t172+7.164279466666668*t203*t154*t171-3.881709226666668*
        t202*t151*t170+0.856551424*t200*t168*t169-0.065840469333333*
        t346*t309*t347;
    t349 = 0.008782933333333*gradb*t165*t173-9.371562666666666E-4*
        t204*t164*t172+4.331656533333332E-6*t203*t163*t171+4.941769386666667E-8*
        t202*t162*t170-3.570204672E-10*t200*t181*t169+5.91091029333333E-13*
        t346*t323*t347;
    t350 = -0.048432*gradb*t68*t173+0.002224992*gradb*t60*
        t67*t173-4.7222208E-5*gradb*t66*t65*t173+6.2036928E-7*gradb*
        t64*t63*t173-2.440046592E-9*gradb*t61*t138*t173+0.001257792*
        t204*t67*t172-6.057216E-5*t204*t60*t65*t172+1.3555537919999999E-6*
        t204*t66*t63*t172-1.2324524543999998E-8*t204*t64*t138*t172+
        3.660069888E-11*t204*t61*t295*t172;
    t351 = 1/pow(rhoa,16.0);
    t352 = -0.41916*t32*t22+2.809896*t21*t30*t31-4.595107200000001*
        t29*t27*t28+2.664087040000001*t26*t24*t25-0.617723392*t20*
        t43*t193+0.049380352*t42*t209*t351;
    t353 = -0.0032936*t40*t22+5.337375999999999E-4*t21*t39*
        t31-3.158297599999999E-6*t29*t38*t28-3.215902720000001E-8*
        t26*t37*t25+2.566823936E-10*t20*t56*t193-4.43318272E-13*t42*
        t223*t351;
    t354 = 0.018162*t22*t68-8.34372E-4*t22*t60*t67-9.43344E-4*
        t21*t31*t67+1.7708328E-5*t22*t66*t65+4.542912E-5*t21*t31*t60*
        t65-2.3263848E-7*t22*t64*t63-1.016665344E-6*t21*t31*t66*t63+
        9.15017472E-10*t22*t61*t138+9.243393408E-9*t21*t31*t64*t138-
        2.745052416E-11*t21*t31*t61*t295;
    t355 = -9.43344E-4*grada*gradb*t22*t67*t59+4.542912E-5*
        grada*gradb*t22*t60*t65*t59-1.016665344E-6*grada*gradb*t22*
        t66*t63*t59+9.243393408E-9*grada*gradb*t22*t64*t138*t59-2.745052416E-11*
        grada*gradb*t22*t61*t295*t59;
    t356 = 1/pow(rhob,16.0);
    t357 = -0.41916*t159*t59+2.809896*t58*t157*t158-4.595107200000001*
        t156*t154*t155+2.664087040000001*t153*t151*t152-0.617723392*
        t149*t168*t201+0.049380352*t167*t309*t356;
    t358 = -0.0032936*t165*t59+5.337375999999999E-4*t58*t164*
        t158-3.158297599999999E-6*t156*t163*t155-3.215902720000001E-8*
        t153*t162*t152+2.566823936E-10*t149*t181*t201-4.43318272E-13*
        t167*t323*t356;
    t359 = 0.018162*t68*t59-8.34372E-4*t60*t67*t59+1.7708328E-5*
        t66*t65*t59-2.3263848E-7*t64*t63*t59+9.15017472E-10*t61*t138*
        t59-9.43344E-4*t58*t67*t158+4.542912E-5*t58*t60*t65*t158-1.016665344E-6*
        t58*t66*t63*t158+9.243393408E-9*t58*t64*t138*t158-2.745052416E-11*
        t58*t61*t295*t158;
    t360 = pow(grada,14.0);
    t361 = 1/pow(t23,7.0);
    t362 = 1/pow(rhoa,21.66666666666667);
    t363 = 1/pow(rhoa,19.0);
    t364 = 1/pow(rhoa,16.33333333333333);
    t365 = 1/pow(rhoa,13.66666666666667);
    t366 = 1/pow(rhoa,11.0);
    t367 = 1/pow(rhoa,8.333333333333334);
    t368 = 1/pow(rhoa,5.666666666666667);
    t369 = 1/pow(t18,3.0);
    t370 = pow(t54,3.0);
    t371 = 1/pow(t17,6.0);
    t372 = 1/pow(t17,5.0);
    t373 = -6.427244444444445*t1*t2*t3/pow(rhoa,3.333333333333333)-
        5.948240277777777*t14*t15*t16/pow(rhoa,3.166666666666667)-
        3.1558125*t8*t9/pow(t10,7.0)-1.852355555555556*t4*t5*t6*t48;
    t374 = 1/
        pow(t36,7.0);
    t375 = 48.2454729664533*t231*t72*t232*t233;
    t376 = -6.0*t231*t72*t235*t107;
    t377 = -0.4274*t1*t2*t3*t103*t105*t106*t107;
    t378 = 3.0*t242*t72*t106*t107;
    t379 = -51.9472676981276*t81*t85*t244*t86*t245*t90*t246;
    t380 = 3.508934038473122*
        t81*t85*t244*t86*t249*t90*t111;
    t381 = 0.130122970593378*t81*t1*t2*t3*t103*t85*t109*t110*
        t90*t111;
    t382 = -1.754467019236561*t81*t85*t252*t86*t110*t90*t111;
    t383 = -
        0.017717724533333*t1*t2*t3*t240*t79;
    t384 = 0.002929848805881*t81*t1*t2*t3*t240*t85*t90*t93;
    t385 = 3.0*
        t284*t81*t83*t84*t90;
    t386 = -24.0*t125*t133*t81*t83*t90;
    t387 = 60.0*t273*t81*t83*t90*t99;
    t388 = 36.0*t275*t81*t84*t90*t99;
    t389 = pow(t105,3.0);
    t390 = 1/pow(t77,6.0);
    t391 = 1/pow(t78,3.0);
    t392 = 517.2501470570614*t389*t72*t390*t391;
    t393 = 1/pow(t77,5.0);
    t394 = -96.4909459329066*t389*t72*t393*t233;
    t395 = -3.43668585764369*t1*t2*t3*t103*t231*t232*t233;
    t396 = 48.2454729664533*
        t242*t105*t72*t232*t233;
    t397 = 6.0*t389*t72*t232*t107;
    t398 = 0.4274*t1*t2*t3*t103*t231*t235*t107;
    t399 = -6.0*t242*t105*t72*t235*t107;
    t400 = -0.2137*t1*t2*t3*t103*t242*t106*t107;
    t401 = 0.284933333333333*t1*t2*t3*t240*t105*t106*t107;
    t402 = 1/
        pow(t70,3.666666666666667);
    t403 = 1/pow(t74,7.0);
    t404 = 1/pow(t70,3.333333333333333);
    t405 = 1/pow(t70,3.166666666666667);
    t406 = -3.200040277777777*t14*t15*t16*t405-3.720474074074074*
        t1*t2*t3*t404-1.5358125*t8*t9*t403-1.460562962962963*t4*t5*
        t6*t402;
    t407 = 1.0*t406*t72*t106*t107;
    t408 = pow(t109,3.0);
    t409 = -1025.38970210078*t408*t81*t85*t86*t90/(pow(t91,
        6.0)*pow(t92,3.0));
    t410 = 103.8945353962552*t246*t408*t81*t85*t86*t90/pow(t91,
        5.0);
    t411 = 1.926377843805565*t81*t1*t2*t3*t103*t85*t244*t245*
        t90*t246;
    t412 = -51.9472676981276*t81*t85*t252*t109*t86*t245*t90*
        t246;
    t413 = -3.508934038473122*t81*t85*t408*t86*t245*t90*t111;
    t414 = -
        0.130122970593378*t81*t1*t2*t3*t103*t85*t244*t249*t90*t111;
    t415 = 3.508934038473122*
        t81*t85*t252*t109*t86*t249*t90*t111;
    t416 = 0.065061485296689*t81*t1*t2*t3*t103*t85*t252*t110*
        t90*t111;
    t417 = -0.086748647062252*t81*t1*t2*t3*t240*t85*t109*
        t110*t90*t111;
    t418 = -0.58482233974552*t81*t85*(-4.36336574074074*t14*
        t15*t16*t405-3.757288888888889*t1*t2*t3*t404-0.82524375*t8*
        t9*t403-1.471733333333333*t4*t5*t6*t402)*t86*t110*t90*t111;
    t419 = 0.013780452414815*
        t1*t2*t3*t404*t79;
    t420 = 1/pow(t88,1.666666666666667);
    t421 = 6.0*t82*t84;
    t422 = -6.0*t258;
    t423 = 1/pow(t89,1.666666666666667);
    t424 = -6.0*t82*t84;
    t425 = 6.0*t258;
    t426 = 1.333333333333333*t121*(t425+t424)-0.296296296296296*
        pow(t120,3.0)*t423+1.333333333333333*t118*(t422+t421)-0.296296296296296*
        pow(t117,3.0)*t420+1.333333333333333*t120*t263*t266+1.333333333333333*
        t117*t257*t261;
    t427 = -0.002278771293463*t81*t1*t2*t3*t404*t85*t90*t93;
    t428 = 1/
        pow(t70,7.0);
    t429 = 120.0*t428*t83;
    t430 = 144.0*t125*t275;
    t431 = -24.0*t82*t84;
    t432 = pow(t130,3.0);
    t433 = t81*t83*t84*t90*(0.006624979614815*t1*t2*t3*t404*
        t98+2069.133687865597*t432*t95/(pow(t96,6.0)*pow(t97,3.0))-
        192.9880990672242*t281*t432*t95/pow(t96,5.0)+6.0*t132*t280*
        t432*t95-6.0*t130*t132*t282*t283*t95-0.013780452414815*t1*
        t2*t3*t404*t79-517.2501470570614*t389*t72*t390*t391+96.4940495336121*
        t283*t130*t95*t280*t281-6.60919909938887*t1*t2*t3*t103*t279*
        t280*t281+96.4909459329066*t389*t72*t393*t233-48.2454729664533*
        t242*t105*t72*t232*t233+3.43668585764369*t1*t2*t3*t103*t231*
        t232*t233+0.41096*t1*t2*t3*t103*t279*t282*t132+(-5.948240277777777*
        t14*t15*t16*t405-6.427244444444445*t1*t2*t3*t404-3.1558125*
        t8*t9*t403-1.852355555555556*t4*t5*t6*t402)*t95*t131*t132-
        0.20548*t1*t2*t3*t103*t283*t131*t132+0.273973333333333*t1*
        t2*t3*t240*t130*t131*t132+6.0*t242*t105*t72*t235*t107-0.4274*
        t1*t2*t3*t103*t231*t235*t107-6.0*t389*t72*t232*t107-1.0*t406*
        t72*t106*t107+0.2137*t1*t2*t3*t103*t242*t106*t107-0.284933333333333*
        t1*t2*t3*t240*t105*t106*t107);
    t434 = -12.0*t125*t284*t81*t83*t90;
    t435 = 60.0*t133*t273*t81*t83*t90;
    t436 = 36.0*t133*t275*t81*t84*t90;
    t437 = -120.0*t428*t81*t83*t90*t99;
    t438 = -144.0*t125*t275*t81*t90*t99;
    t439 = 24.0*t81*t82*t84*t90*t99;
    t440 = 1/pow(t62,7.0);
    t441 = 0.03950357940513*t81*t85*t86*t297*t93;
    t442 = 0.03950357940513*t81*t128*t86*t185*t93;
    t443 = 0.03950357940513*t81*t187*t86*t122*t93;
    t444 = 0.03950357940513*t81*t298*t86*t90*t93;
    t445 = 2.0*t297*t81*t83*t84*t99;
    t446 = -1.169644679491041*t81*t85*t109*t86*t110*t297*
        t111;
    t447 = -1.169644679491041*t81*t128*t109*t86*t110*t185*
        t111;
    t448 = -1.169644679491041*t81*t187*t109*t86*t110*t122*
        t111;
    t449 = -1.169644679491041*t81*t298*t109*t86*t110*t90*
        t111;
    t450 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t297*t93;
    t451 = 1.777777777777778*
        t120*t258*t263*t82-1.777777777777778*t117*t257*t258*t82+1.333333333333333*
        t121*(t424+2.0*t258)-0.296296296296296*t184*t262*t423+1.333333333333333*
        t118*(t421-2.0*t258)-0.296296296296296*t183*t256*t420+0.444444444444444*
        t184*t263*t266+0.444444444444444*t183*t257*t261;
    t452 = -0.00146492440294*t81*t1*t2*t3*t103*t128*t185*
        t93;
    t453 = -0.00146492440294*t81*t1*t2*t3*t103*t187*t122*
        t93;
    t454 = -0.00146492440294*t81*t1*t2*t3*t103*t298*t90*t93;
    t455 = -
        48.0*t125*t275;
    t456 = 24.0*t82*t84;
    t457 = 2.0*t133*t297*t81*t83*t84;
    t458 = -12.0*t133*t275*t81*t84*t90;
    t459 = -8.0*t125*t297*t81*t83*t99;
    t460 = 48.0*t125*t275*t81*t90*t99;
    t461 = -24.0*t81*t82*t84*t90*t99;
    t462 = pow(grada,13.0);
    t463 = 1/pow(rhoa,20.66666666666667);
    t464 = -8.0*t121*t82*t84+8.0*t118*t82*t84+1.777777777777778*
        t184*t258*t263*t82-1.777777777777778*t183*t257*t258*t82-0.296296296296296*
        t120*t329*t423-0.296296296296296*t117*t327*t420+0.444444444444444*
        t120*t263*t330+0.444444444444444*t117*t257*t328-2.666666666666667*
        t121*t258+2.666666666666667*t118*t258;
    t465 = 1/pow(rhoa,19.66666666666667);
    t466 = pow(gradb,14.0);
    t467 = 1/pow(t150,7.0);
    t468 = 1/pow(rhob,21.66666666666667);
    t469 = 1/pow(rhob,19.0);
    t470 = 1/pow(rhob,16.33333333333333);
    t471 = 1/pow(rhob,13.66666666666667);
    t472 = 1/pow(rhob,11.0);
    t473 = 1/pow(rhob,8.333333333333334);
    t474 = 1/pow(rhob,5.666666666666667);
    t475 = 1/pow(t145,3.0);
    t476 = pow(t179,3.0);
    t477 = 1/pow(t144,6.0);
    t478 = 1/pow(t144,5.0);
    t479 = -6.427244444444445*t1*t2*t3/pow(rhob,3.333333333333333)-
        5.948240277777777*t14*t15*t16/pow(rhob,3.166666666666667)-
        3.1558125*t8*t9/pow(t141,7.0)-1.852355555555556*t4*t5*t6*t173;
    t480 = 1/
        pow(t161,7.0);
    t481 = 1.333333333333333*t118*(t425+t421)-0.296296296296296*
        pow(t184,3.0)*t423+1.333333333333333*t121*(t422+t424)-0.296296296296296*
        pow(t183,3.0)*t420+1.333333333333333*t184*t263*t330+1.333333333333333*
        t183*t257*t328;
    t482 = pow(gradb,13.0);
    t483 = 1/pow(rhob,20.66666666666667);
    t484 = 1/pow(rhob,19.66666666666667);
    t485 = 1/pow(rhoa,18.66666666666667);
    t486 = 1/pow(rhob,18.66666666666667);

   /* code */
    dfdra = t50*t33*t54*t34*t55*rhoa-0.03109*t19*t49*t34*
        rhoa-0.75*t3*t35*t52*t57-1.0*t11*t3*t35*t41-0.03109*t19*t33*
        t34+t139*t148+t69*t137+0.002129457733333*t1*t2*t3*t19*t33*
        t12;
    dfdrb = t175*t160*t179*t147*t180*rhob-0.03109*t146*t174*
        t147*rhob-0.75*t177*t182*t3*t35-1.0*t142*t166*t3*t35+t69*t190+
        t191*t148-0.03109*t146*t160*t147+0.002129457733333*t1*t2*t3*
        t146*t160*t143;
    dfdga = -0.03109*t19*t197*t34*rhoa-0.75*t198*t3*t35*t52+
        t199*t148;
    dfdgb = -0.03109*t146*t205*t147*rhob-0.75*t177*t206*t3*
        t35+t207*t148;
    dfdgab = 0.0;
    d2fdrara = 2.0*t34*t49*t50*t54*t55*rhoa+t50*t33*t222*
        t34*t55*rhoa-2.0*t218*t220*t33*t34*t50*rhoa-0.03109*t19*t216*
        t34*rhoa+32.1646831778707*t217*t33*t218*t34*t219*rhoa-0.333333333333333*
        t3*t35*t41*t7-2.0*t11*t3*t35*t57+2.0*t33*t34*t50*t54*t55+0.001419638488889*
        t1*t2*t3*t19*t33*t53-0.75*t224*t3*t35*t52-0.06218*t19*t49*
        t34+t69*t294+t296*t148+2.0*t137*t139-0.136986666666667*t1*
        t2*t3*t50*t33*t54*t55*t12+0.004258915466667*t1*t2*t3*t19*t49*
        t12;
    d2fdrarb = t301*t148+t191*t137+t139*t190+t69*t300;
    d2fdraga = t50*t197*t54*t34*t55*rhoa-0.03109*t19*t304*
        t34*rhoa-0.75*t3*t305*t35*t52-1.0*t11*t198*t3*t35-0.03109*
        t19*t197*t34+t306*t148+t199*t137+0.002129457733333*t1*t2*t3*
        t19*t197*t12;
    d2fdragb = t307*t148+t207*t137;
    d2fdraab = 0.0;
    d2fdrbrb = -2.0*t147*t160*t175*t318*t320*rhob+32.1646831778707*
        t317*t160*t318*t147*t319*rhob+2.0*t147*t174*t175*t179*t180*
        rhob+t175*t160*t322*t147*t180*rhob-0.03109*t146*t316*t147*
        rhob-0.75*t177*t3*t324*t35-2.0*t142*t182*t3*t35-0.333333333333333*
        t140*t166*t3*t35+t69*t343+2.0*t190*t191+2.0*t147*t160*t175*
        t179*t180+0.001419638488889*t1*t2*t3*t146*t160*t178+t344*t148-
        0.06218*t146*t174*t147-0.136986666666667*t1*t2*t3*t175*t160*
        t179*t180*t143+0.004258915466667*t1*t2*t3*t146*t174*t143;
    d2fdrbga = t345*
        t148+t199*t190;
    d2fdrbgb = t175*t205*t179*t147*t180*rhob-0.03109*t146*
        t348*t147*rhob-0.75*t177*t3*t349*t35-1.0*t142*t206*t3*t35+
        t207*t190+t350*t148-0.03109*t146*t205*t147+0.002129457733333*
        t1*t2*t3*t146*t205*t143;
    d2fdrbgab = 0.0;
    d2fdgaga = -0.03109*t19*t352*t34*rhoa-0.75*t3*t35*t353*
        t52+t354*t148;
    d2fdgagb = t355*t148;
    d2fdgagab = 0.0;
    d2fdgbgb = -0.03109*t146*t357*t147*rhob-0.75*t177*t3*
        t35*t358+t359*t148;
    d2fdgbgab = 0.0;
    d2fdgabgab = 0.0;
    d3fdrarara = t69*(-1.0*t50*t373*t34*t55*rhoa+192.9880990672242*
        t217*t370*t34*t372*rhoa-2069.133687865597*t369*t370*t34*t371*
        rhoa+6.0*t50*t222*t54*t34*t220*rhoa-96.4940495336121*t217*
        t222*t54*t34*t219*rhoa-6.0*t50*t370*t34*t219*rhoa+t70*(240.0*
        t127*t273*t81*t90*t99+36.0*t122*t275*t81*t84*t99+12.0*t127*
        t267*t81*t84*t99+60.0*t122*t273*t81*t83*t99-12.0*t125*t267*
        t81*t83*t99-96.0*t122*t125*t127*t81*t99+t81*t83*t84*t426*t99+
        0.019751789702565*(t431+t430+t429-240.0*t127*t273)*t81*t86*
        t90*t93-0.00219738660441*t81*t1*t2*t3*t103*t277*t90*t93+0.002929848805881*
        t81*t1*t2*t3*t240*t128*t90*t93+0.019751789702565*t81*t85*t86*
        t426*t93+0.059255369107696*t81*t128*t86*t267*t93-0.00219738660441*
        t81*t1*t2*t3*t103*t85*t267*t93+0.059255369107696*t81*t277*
        t86*t122*t93+0.002929848805881*t81*t1*t2*t3*t240*t85*t122*
        t93-0.004394773208821*t81*t1*t2*t3*t103*t128*t122*t93+12.0*
        t127*t284*t81*t84*t90-96.0*t125*t127*t133*t81*t90+3.0*t122*
        t284*t81*t83*t84+3.0*t133*t267*t81*t83*t84+24.0*t122*t127*
        t133*t81*t84-24.0*t122*t125*t133*t81*t83+t439+t438+t437+t436+
        t435+t434+t433+t427+t419+t418+t417+t416+t415+t414+t413+t412+
        t411+t410+t409+t407+t401+t400+t399+t398+t397+t396+t395+t394+
        t392-51.9472676981276*t81*t128*t244*t86*t245*t90*t246-51.9472676981276*
        t81*t85*t244*t86*t245*t122*t246+3.508934038473122*t81*t128*
        t244*t86*t249*t90*t111-1.754467019236561*t81*t128*t252*t86*
        t110*t90*t111-1.754467019236561*t81*t277*t109*t86*t110*t90*
        t111+0.130122970593378*t81*t1*t2*t3*t103*t128*t109*t110*t90*
        t111-1.754467019236561*t81*t85*t109*t86*t110*t267*t111+3.508934038473122*
        t81*t85*t244*t86*t249*t122*t111-1.754467019236561*t81*t85*
        t252*t86*t110*t122*t111-3.508934038473122*t81*t128*t109*t86*
        t110*t122*t111+0.130122970593378*t81*t1*t2*t3*t103*t85*t109*
        t110*t122*t111)-96.0*t125*t127*t81*t90*t99+3.0*t267*t81*t83*
        t84*t99+24.0*t122*t127*t81*t84*t99-24.0*t122*t125*t81*t83*
        t99+0.059255369107696*t81*t277*t86*t90*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t128*t90*t93+0.059255369107696*t81*t85*t86*
        t267*t93+0.118510738215391*t81*t128*t86*t122*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t85*t122*t93+24.0*t127*t133*t81*t84*t90+
        6.0*t122*t133*t81*t83*t84-3.0*t50*t222*t34*t55+0.136986666666667*
        t1*t2*t3*t50*t54*t55*t53+t388+t387+t386+t385+t384+t383+t382+
        t381+t380+t379+t378+t377+t376+t375+0.001892851318519*t1*t2*
        t3*t19*t221+6.0*t50*t218*t34*t220-96.4940495336121*t217*t218*
        t34*t219+0.20548*t1*t2*t3*t50*t222*t55*t12-0.41096*t1*t2*t3*
        t50*t218*t220*t12+6.60919909938887*t1*t2*t3*t217*t218*t219*
        t12-3.508934038473122*t81*t128*t109*t86*t110*t90*t111-3.508934038473122*
        t81*t85*t109*t86*t110*t122*t111)+3.0*t216*t34*t50*t54*t55*
        rhoa+3.0*t222*t34*t49*t50*t55*rhoa+t50*t373*t33*t34*t55*rhoa-
        6.0*t220*t222*t33*t34*t50*t54*rhoa-6.0*t218*t220*t34*t49*t50*
        rhoa+6.0*t219*t33*t34*t370*t50*rhoa-192.9880990672242*t217*
        t33*t370*t34*t372*rhoa+2069.133687865597*t369*t33*t370*t34*
        t371*rhoa-0.03109*t19*(9.563057777777779*t21*t32*t368-57.81965037037038*
        t29*t30*t367+114.1495855407408*t26*t27*t366-86.67635067259263*
        t20*t24*t365+29.7609332811852*t42*t43*t364-4.713474730666669*
        t208*t209*t363+0.280919335822222*t360*t361*t362)*t34*rhoa+
        96.4940495336121*t217*t33*t222*t54*t34*t219*rhoa+96.4940495336121*
        t217*t49*t218*t34*t219*rhoa-1.0*t3*t35*t57*t7+3.0*t222*t33*
        t34*t50*t55+6.0*t50*t49*t54*t34*t55-0.136986666666667*t1*t2*
        t3*t50*t33*t54*t55*t53+0.004258915466667*t1*t2*t3*t19*t49*
        t53-0.75*t3*t35*(0.075142874074074*t21*t40*t368-0.010988772503704*
        t29*t39*t367+9.042903798518514E-5*t26*t38*t366+7.287608357925925E-7*
        t20*t37*t365-1.0615984643792592E-8*t42*t56*t364+4.03624281884444E-11*
        t208*t223*t363-5.04397678364444E-14*t360*t374*t362)*t52+0.222222222222222*
        t3*t35*t41*t51-6.0*t218*t220*t33*t34*t50-3.0*t11*t224*t3*t35-
        0.09327*t19*t216*t34+3.0*t137*t296+3.0*t139*t294-0.001892851318519*
        t1*t2*t3*t19*t33*t221+96.4940495336121*t217*t33*t218*t34*t219+
        (-0.414362666666667*t21*t368*t68+0.019036042666667*t21*t368*
        t60*t67+0.018447616*t29*t367*t67-4.04012224E-4*t21*t368*t66*
        t65-8.8839168E-4*t29*t367*t60*t65-1.3451673599999998E-4*t26*
        t366*t65+5.30760384E-6*t21*t368*t64*t63+1.9881455616E-5*t29*
        t367*t66*t63+6.758055935999999E-6*t26*t366*t60*t63-2.0875954176E-8*
        t21*t368*t61*t138-1.8075969331199996E-7*t29*t367*t64*t138-
        1.2356775936E-7*t26*t366*t66*t138+5.3681025024E-10*t29*t367*
        t61*t295+9.1757961216E-10*t26*t366*t64*t295-2.34244472832E-12*
        t26*t366*t61*t440)*t148-0.41096*t1*t2*t3*t50*t49*t54*t55*t12-
        0.20548*t1*t2*t3*t50*t33*t222*t55*t12+0.41096*t1*t2*t3*t50*
        t33*t218*t220*t12-6.60919909938887*t1*t2*t3*t217*t33*t218*
        t219*t12+0.0063883732*t1*t2*t3*t19*t216*t12;
    d3fdrararb = t69*(t70*(80.0*t127*t273*t81*t90*t99+8.0*
        t127*t297*t81*t84*t99+12.0*t185*t275*t81*t84*t99-24.0*t122*
        t275*t81*t84*t99-4.0*t127*t267*t81*t84*t99+20.0*t185*t273*
        t81*t83*t99+40.0*t122*t273*t81*t83*t99-4.0*t125*t267*t81*t83*
        t99-32.0*t125*t127*t185*t81*t99+t81*t83*t84*t451*t99+0.019751789702565*
        (t456+t455+t429-80.0*t127*t273)*t81*t86*t90*t93-7.324622014701263E-4*
        t81*t1*t2*t3*t103*t277*t90*t93+9.76616268626835E-4*t81*t1*
        t2*t3*t240*t187*t90*t93+0.001953232537254*t81*t1*t2*t3*t240*
        t128*t90*t93+0.019751789702565*t81*t85*t86*t451*t93+0.03950357940513*
        t81*t128*t86*t297*t93+0.019751789702565*t81*t187*t86*t267*
        t93-7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t267*t93+0.019751789702565*
        t81*t277*t86*t185*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*
        t85*t185*t93+0.03950357940513*t81*t298*t86*t122*t93+0.001953232537254*
        t81*t1*t2*t3*t240*t85*t122*t93-0.00146492440294*t81*t1*t2*
        t3*t103*t128*t122*t93+4.0*t127*t284*t81*t84*t90-32.0*t125*
        t127*t133*t81*t90+2.0*t122*t284*t81*t83*t84+8.0*t127*t133*
        t185*t81*t84-8.0*t125*t133*t185*t81*t83-16.0*t122*t125*t133*
        t81*t83+t461+t460+t459+t458+t457+t454+t453+t452+t450+t449+
        t448+t447+t446+t437+t435+t434+t433+t427+t419+t418+t417+t416+
        t415+t414+t413+t412+t411+t410+t409+t407+t401+t400+t399+t398+
        t397+t396+t395+t394+t392+t81*t83*t84*t185*t284-17.31575589937587*
        t81*t187*t244*t86*t245*t90*t246-34.63151179875173*t81*t128*
        t244*t86*t245*t90*t246-17.31575589937587*t81*t85*t244*t86*
        t245*t185*t246-34.63151179875173*t81*t85*t244*t86*t245*t122*
        t246+t81*t83*t84*t267*t133+1.169644679491041*t81*t187*t244*
        t86*t249*t90*t111+2.339289358982082*t81*t128*t244*t86*t249*
        t90*t111-0.58482233974552*t81*t187*t252*t86*t110*t90*t111-
        1.169644679491041*t81*t128*t252*t86*t110*t90*t111-0.58482233974552*
        t81*t277*t109*t86*t110*t90*t111+0.043374323531126*t81*t1*t2*
        t3*t103*t187*t109*t110*t90*t111+0.086748647062252*t81*t1*t2*
        t3*t103*t128*t109*t110*t90*t111-0.58482233974552*t81*t85*t109*
        t86*t110*t267*t111+1.169644679491041*t81*t85*t244*t86*t249*
        t185*t111-0.58482233974552*t81*t85*t252*t86*t110*t185*t111+
        0.043374323531126*t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+
        2.339289358982082*t81*t85*t244*t86*t249*t122*t111-1.169644679491041*
        t81*t85*t252*t86*t110*t122*t111-1.169644679491041*t81*t128*
        t109*t86*t110*t122*t111+0.086748647062252*t81*t1*t2*t3*t103*
        t85*t109*t110*t122*t111)+8.0*t127*t185*t81*t84*t99-16.0*t122*
        t125*t81*t83*t99-0.002929848805881*t81*t1*t2*t3*t103*t128*
        t90*t93-0.002929848805881*t81*t1*t2*t3*t103*t85*t122*t93+4.0*
        t122*t133*t81*t83*t84+t445+t444+t443+t442+t441+t387+t386+t385+
        t384+t383+t382+t381+t380+t379+t378+t377+t376+t375+t341+t338+
        t335+t333+t326+t325+t299+t292+t289+t288+t278+t270+t268-2.339289358982082*
        t81*t128*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
        t109*t86*t110*t122*t111)+2.0*t137*t301+2.0*t139*t300+t191*
        t294+t296*t190+(0.006149205333333*t21*t58*t215*t67*t173-2.9613056E-4*
        t21*t58*t215*t60*t65*t173-1.3451673599999998E-4*t29*t58*t214*
        t65*t173+6.627151872E-6*t21*t58*t215*t66*t63*t173+6.758055935999999E-6*
        t29*t58*t214*t60*t63*t173-6.0253231104E-8*t21*t58*t215*t64*
        t138*t173-1.2356775936E-7*t29*t58*t214*t66*t138*t173+1.7893675008E-10*
        t21*t58*t215*t61*t295*t173+9.1757961216E-10*t29*t58*t214*t64*
        t295*t173-2.34244472832E-12*t29*t58*t214*t61*t440*t173)*t148;
    d3fdraraga = 2.0*
        t304*t34*t50*t54*t55*rhoa+t50*t197*t222*t34*t55*rhoa-2.0*t197*
        t218*t220*t34*t50*rhoa-0.03109*t19*(-4.098453333333334*grada*
        t32*t215+31.76154311111111*t196*t30*t214-69.72742542222224*
        t195*t27*t213+56.74945479111113*t194*t24*t212-20.5582167608889*
        t192*t43*t211+3.403425109333335*t302*t209*t210-0.210689501866667*
        t462*t361*t463)*t34*rhoa+32.1646831778707*t217*t197*t218*t34*
        t219*rhoa-0.333333333333333*t198*t3*t35*t7+2.0*t197*t34*t50*
        t54*t55+0.001419638488889*t1*t2*t3*t19*t197*t53-0.75*(-0.032204088888889*
        grada*t40*t215+0.006029007644444*t196*t39*t214-5.897757582222221E-5*
        t195*t38*t213-4.379267527111111E-7*t194*t37*t212+7.225781634844444E-9*
        t192*t56*t211-2.908963908266666E-11*t302*t223*t210+3.78298258773333E-14*
        t462*t374*t463)*t3*t35*t52-2.0*t11*t3*t305*t35-0.06218*t19*
        t304*t34+2.0*t137*t306+t199*t294+(0.177584*grada*t215*t68-
        0.008158304*grada*t215*t60*t67-0.011320128*t196*t214*t67+1.73148096E-4*
        grada*t215*t66*t65+5.4514944E-4*t196*t214*t60*t65+1.0088755199999999E-4*
        t195*t213*t65-2.27468736E-6*grada*t215*t64*t63-1.2199984128E-5*
        t196*t214*t66*t63-5.068541952E-6*t195*t213*t60*t63+8.946837503999999E-9*
        grada*t215*t61*t138+1.10920720896E-7*t196*t214*t64*t138+9.267581951999999E-8*
        t195*t213*t66*t138-3.2940628992E-10*t196*t214*t61*t295-6.8818470912E-10*
        t195*t213*t64*t295+1.75683354624E-12*t195*t213*t61*t440)*t148-
        0.136986666666667*t1*t2*t3*t50*t197*t54*t55*t12+0.004258915466667*
        t1*t2*t3*t19*t304*t12;
    d3fdraragb = 2.0*t137*t307+t207*t294+(-0.004611904*t21*
        gradb*t215*t67*t59+2.2209792E-4*t21*gradb*t215*t60*t65*t59+
        1.0088755199999999E-4*t29*gradb*t214*t65*t59-4.970363904E-6*
        t21*gradb*t215*t66*t63*t59-5.068541952E-6*t29*gradb*t214*t60*
        t63*t59+4.5189923328E-8*t21*gradb*t215*t64*t138*t59+9.267581951999999E-8*
        t29*gradb*t214*t66*t138*t59-1.3420256256E-10*t21*gradb*t215*
        t61*t295*t59-6.8818470912E-10*t29*gradb*t214*t64*t295*t59+
        1.75683354624E-12*t29*gradb*t214*t61*t440*t59)*t148;
    d3fdraraab = 0.0;
    d3fdrarbrb = t69*(t70*(-80.0*t127*t273*t81*t90*t99+4.0*
        t127*t331*t81*t84*t99-8.0*t127*t297*t81*t84*t99-24.0*t185*
        t275*t81*t84*t99+12.0*t122*t275*t81*t84*t99-4.0*t125*t331*
        t81*t83*t99+40.0*t185*t273*t81*t83*t99+20.0*t122*t273*t81*
        t83*t99+32.0*t122*t125*t127*t81*t99+t81*t83*t84*t464*t99+0.019751789702565*
        (t455+t431+t429+80.0*t127*t273)*t81*t86*t90*t93-7.324622014701263E-4*
        t81*t1*t2*t3*t103*t336*t90*t93+0.001953232537254*t81*t1*t2*
        t3*t240*t187*t90*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*
        t128*t90*t93+0.019751789702565*t81*t85*t86*t464*t93+0.019751789702565*
        t81*t128*t86*t331*t93-7.324622014701263E-4*t81*t1*t2*t3*t103*
        t85*t331*t93+0.03950357940513*t81*t187*t86*t297*t93+0.03950357940513*
        t81*t298*t86*t185*t93+0.001953232537254*t81*t1*t2*t3*t240*
        t85*t185*t93-0.00146492440294*t81*t1*t2*t3*t103*t187*t185*
        t93+0.019751789702565*t81*t336*t86*t122*t93+9.76616268626835E-4*
        t81*t1*t2*t3*t240*t85*t122*t93-4.0*t127*t284*t81*t84*t90+32.0*
        t125*t127*t133*t81*t90+2.0*t185*t284*t81*t83*t84-8.0*t122*
        t127*t133*t81*t84-16.0*t125*t133*t185*t81*t83-8.0*t122*t125*
        t133*t81*t83+t460+t459+t458+t457+t454+t453+t452+t450+t449+
        t448+t447+t446+t439+t437+t435+t434+t433+t427+t419+t418+t417+
        t416+t415+t414+t413+t412+t411+t410+t409+t407+t401+t400+t399+
        t398+t397+t396+t395+t394+t392+t81*t83*t84*t122*t284-34.63151179875173*
        t81*t187*t244*t86*t245*t90*t246-17.31575589937587*t81*t128*
        t244*t86*t245*t90*t246-34.63151179875173*t81*t85*t244*t86*
        t245*t185*t246-17.31575589937587*t81*t85*t244*t86*t245*t122*
        t246+t81*t83*t84*t331*t133+2.339289358982082*t81*t187*t244*
        t86*t249*t90*t111+1.169644679491041*t81*t128*t244*t86*t249*
        t90*t111-1.169644679491041*t81*t187*t252*t86*t110*t90*t111-
        0.58482233974552*t81*t128*t252*t86*t110*t90*t111-0.58482233974552*
        t81*t336*t109*t86*t110*t90*t111+0.086748647062252*t81*t1*t2*
        t3*t103*t187*t109*t110*t90*t111+0.043374323531126*t81*t1*t2*
        t3*t103*t128*t109*t110*t90*t111-0.58482233974552*t81*t85*t109*
        t86*t110*t331*t111+2.339289358982082*t81*t85*t244*t86*t249*
        t185*t111-1.169644679491041*t81*t85*t252*t86*t110*t185*t111-
        1.169644679491041*t81*t187*t109*t86*t110*t185*t111+0.086748647062252*
        t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+1.169644679491041*
        t81*t85*t244*t86*t249*t122*t111-0.58482233974552*t81*t85*t252*
        t86*t110*t122*t111+0.043374323531126*t81*t1*t2*t3*t103*t85*
        t109*t110*t122*t111)-8.0*t122*t127*t81*t84*t99-16.0*t125*t185*
        t81*t83*t99-0.002929848805881*t81*t1*t2*t3*t103*t187*t90*t93-
        0.002929848805881*t81*t1*t2*t3*t103*t85*t185*t93+4.0*t133*
        t185*t81*t83*t84+t445+t444+t443+t442+t441+t387+t386+t385+t384+
        t383+t382+t381+t380+t379+t378+t377+t376+t375+t342+t340+t339+
        t337+t334+t332+t299+t290+t286+t271+t269+t254+t248-2.339289358982082*
        t81*t187*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
        t109*t86*t110*t185*t111)+t139*t343+2.0*t190*t301+2.0*t191*
        t300+(0.006149205333333*t21*t58*t48*t67*t315-2.9613056E-4*
        t21*t58*t48*t60*t65*t315+6.627151872E-6*t21*t58*t48*t66*t63*
        t315-6.025323110399998E-8*t21*t58*t48*t64*t138*t315+1.7893675008E-10*
        t21*t58*t48*t61*t295*t315-1.3451673599999998E-4*t21*t156*t48*
        t65*t314+6.758055935999999E-6*t21*t156*t48*t60*t63*t314-1.2356775936E-7*
        t21*t156*t48*t66*t138*t314+9.1757961216E-10*t21*t156*t48*t64*
        t295*t314-2.34244472832E-12*t21*t156*t48*t61*t440*t314)*t148+
        t344*t137;
    d3fdrarbga = (-0.003354112*grada*t58*t48*t67*t173+1.6152575999999998E-4*
        grada*t58*t48*t60*t65*t173+1.0088755199999999E-4*t196*t58*
        t47*t65*t173-3.614810112E-6*grada*t58*t48*t66*t63*t173-5.068541952E-6*
        t196*t58*t47*t60*t63*t173+3.2865398784E-8*grada*t58*t48*t64*
        t138*t173+9.267581951999999E-8*t196*t58*t47*t66*t138*t173-
        9.760186368E-11*grada*t58*t48*t61*t295*t173-6.8818470912E-10*
        t196*t58*t47*t64*t295*t173+1.75683354624E-12*t196*t58*t47*
        t61*t440*t173)*t148+t345*t137+t306*t190+t199*t300;
    d3fdrarbgb = (-0.003354112*t21*gradb*t48*t67*t173+1.6152575999999998E-4*
        t21*gradb*t48*t60*t65*t173-3.614810112E-6*t21*gradb*t48*t66*
        t63*t173+3.2865398784E-8*t21*gradb*t48*t64*t138*t173-9.760186368E-11*
        t21*gradb*t48*t61*t295*t173+1.0088755199999999E-4*t21*t204*
        t48*t65*t172-5.068541952E-6*t21*t204*t48*t60*t63*t172+9.267581951999999E-8*
        t21*t204*t48*t66*t138*t172-6.8818470912E-10*t21*t204*t48*t64*
        t295*t172+1.75683354624E-12*t21*t204*t48*t61*t440*t172)*t148+
        t350*t137+t307*t190+t207*t300;
    d3fdrarbab = 0.0;
    d3fdragaga = t50*t352*t54*t34*t55*rhoa-0.03109*t19*(1.11776*
        t32*t48-15.209664*t21*t30*t47+39.75808*t29*t27*t46-35.76909994666669*
        t26*t24*t45+13.91969757866667*t20*t43*t44-2.437348010666668*
        t42*t209*t303+0.1580171264*t208*t361*t465)*t34*rhoa-0.75*t3*
        t35*(0.008782933333333*t40*t48-0.002881732266667*t21*t39*t47+
        3.665278293333333E-5*t29*t38*t46+2.419641002666668E-7*t26*
        t37*t45-4.794550408533334E-9*t20*t56*t44+2.078282001066667E-11*
        t42*t223*t303-2.8372369408E-14*t208*t374*t465)*t52-1.0*t11*
        t3*t35*t353-0.03109*t19*t352*t34+(-0.048432*t48*t68+0.002224992*
        t48*t60*t67+0.00628896*t21*t47*t67-4.7222208E-5*t48*t66*t65-
        3.028608E-4*t21*t47*t60*t65-7.5665664E-5*t29*t46*t65+6.2036928E-7*
        t48*t64*t63+6.77776896E-6*t21*t47*t66*t63+3.801406464E-6*t29*
        t46*t60*t63-2.440046592E-9*t48*t61*t138-6.162262272E-8*t21*
        t47*t64*t138-6.950686463999999E-8*t29*t46*t66*t138+1.830034944E-10*
        t21*t47*t61*t295+5.1613853184E-10*t29*t46*t64*t295-1.31762515968E-12*
        t29*t46*t61*t440)*t148+t354*t137+0.002129457733333*t1*t2*t3*
        t19*t352*t12;
    d3fdragagb = (0.002515584*grada*gradb*t48*t67*t59-1.2114432E-4*
        grada*gradb*t48*t60*t65*t59-7.5665664E-5*t196*gradb*t47*t65*
        t59+2.711107584E-6*grada*gradb*t48*t66*t63*t59+3.801406464E-6*
        t196*gradb*t47*t60*t63*t59-2.4649049087999997E-8*grada*gradb*
        t48*t64*t138*t59-6.950686463999999E-8*t196*gradb*t47*t66*t138*
        t59+7.320139776E-11*grada*gradb*t48*t61*t295*t59+5.1613853184E-10*
        t196*gradb*t47*t64*t295*t59-1.31762515968E-12*t196*gradb*t47*
        t61*t440*t59)*t148+t355*t137;
    d3fdragaab = 0.0;
    d3fdragbgb = (0.001257792*t21*t48*t67*t59-6.057216E-5*
        t21*t48*t60*t65*t59+1.3555537919999999E-6*t21*t48*t66*t63*
        t59-1.2324524543999998E-8*t21*t48*t64*t138*t59+3.660069888E-11*
        t21*t48*t61*t295*t59-7.5665664E-5*t21*t58*t48*t65*t158+3.801406464E-6*
        t21*t58*t48*t60*t63*t158-6.950686463999999E-8*t21*t58*t48*
        t66*t138*t158+5.1613853184E-10*t21*t58*t48*t64*t295*t158-1.31762515968E-12*
        t21*t58*t48*t61*t440*t158)*t148+t359*t137;
    d3fdragbab = 0.0;
    d3fdraabab = 0.0;
    d3fdrbrbrb = t69*(192.9880990672242*t317*t476*t147*t478*
        rhob-2069.133687865597*t475*t476*t147*t477*rhob+6.0*t175*t322*
        t179*t147*t320*rhob-6.0*t175*t476*t147*t319*rhob-96.4940495336121*
        t317*t322*t179*t147*t319*rhob-1.0*t175*t479*t147*t180*rhob+
        t70*(-240.0*t127*t273*t81*t90*t99-12.0*t127*t331*t81*t84*t99+
        36.0*t185*t275*t81*t84*t99-12.0*t125*t331*t81*t83*t99+60.0*
        t185*t273*t81*t83*t99+96.0*t125*t127*t185*t81*t99+t81*t83*
        t84*t481*t99+0.019751789702565*(t456+t430+t429+240.0*t127*
        t273)*t81*t86*t90*t93-0.00219738660441*t81*t1*t2*t3*t103*t336*
        t90*t93+0.002929848805881*t81*t1*t2*t3*t240*t187*t90*t93+0.019751789702565*
        t81*t85*t86*t481*t93+0.059255369107696*t81*t187*t86*t331*t93-
        0.00219738660441*t81*t1*t2*t3*t103*t85*t331*t93+0.059255369107696*
        t81*t336*t86*t185*t93+0.002929848805881*t81*t1*t2*t3*t240*
        t85*t185*t93-0.004394773208821*t81*t1*t2*t3*t103*t187*t185*
        t93-12.0*t127*t284*t81*t84*t90+96.0*t125*t127*t133*t81*t90+
        3.0*t133*t331*t81*t83*t84+3.0*t185*t284*t81*t83*t84-24.0*t127*
        t133*t185*t81*t84-24.0*t125*t133*t185*t81*t83+t461+t438+t437+
        t436+t435+t434+t433+t427+t419+t418+t417+t416+t415+t414+t413+
        t412+t411+t410+t409+t407+t401+t400+t399+t398+t397+t396+t395+
        t394+t392-51.9472676981276*t81*t187*t244*t86*t245*t90*t246-
        51.9472676981276*t81*t85*t244*t86*t245*t185*t246+3.508934038473122*
        t81*t187*t244*t86*t249*t90*t111-1.754467019236561*t81*t187*
        t252*t86*t110*t90*t111-1.754467019236561*t81*t336*t109*t86*
        t110*t90*t111+0.130122970593378*t81*t1*t2*t3*t103*t187*t109*
        t110*t90*t111-1.754467019236561*t81*t85*t109*t86*t110*t331*
        t111+3.508934038473122*t81*t85*t244*t86*t249*t185*t111-1.754467019236561*
        t81*t85*t252*t86*t110*t185*t111-3.508934038473122*t81*t187*
        t109*t86*t110*t185*t111+0.130122970593378*t81*t1*t2*t3*t103*
        t85*t109*t110*t185*t111)+96.0*t125*t127*t81*t90*t99+3.0*t331*
        t81*t83*t84*t99-24.0*t127*t185*t81*t84*t99-24.0*t125*t185*
        t81*t83*t99+0.059255369107696*t81*t336*t86*t90*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t187*t90*t93+0.059255369107696*t81*t85*t86*
        t331*t93+0.118510738215391*t81*t187*t86*t185*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t85*t185*t93-24.0*t127*t133*t81*t84*t90+
        6.0*t133*t185*t81*t83*t84+t388+t387+t386+t385+t384+t383+t382+
        t381+t380+t379+t378+t377+t376+t375+0.001892851318519*t1*t2*
        t3*t146*t321+6.0*t175*t318*t147*t320-96.4940495336121*t317*
        t318*t147*t319-3.0*t175*t322*t147*t180+0.136986666666667*t1*
        t2*t3*t175*t179*t180*t178-0.41096*t1*t2*t3*t175*t318*t320*
        t143+6.60919909938887*t1*t2*t3*t317*t318*t319*t143+0.20548*
        t1*t2*t3*t175*t322*t180*t143-3.508934038473122*t81*t187*t109*
        t86*t110*t90*t111-3.508934038473122*t81*t85*t109*t86*t110*
        t185*t111)-192.9880990672242*t317*t160*t476*t147*t478*rhob+
        2069.133687865597*t475*t160*t476*t147*t477*rhob+6.0*t147*t160*
        t175*t319*t476*rhob-6.0*t147*t160*t175*t179*t320*t322*rhob+
        3.0*t147*t174*t175*t180*t322*rhob-6.0*t147*t174*t175*t318*
        t320*rhob+96.4940495336121*t317*t174*t318*t147*t319*rhob+96.4940495336121*
        t317*t160*t322*t179*t147*t319*rhob+3.0*t147*t175*t179*t180*
        t316*rhob+t175*t479*t160*t147*t180*rhob-0.03109*t146*(9.563057777777779*
        t58*t159*t474-57.81965037037038*t156*t157*t473+114.1495855407408*
        t153*t154*t472-86.67635067259263*t149*t151*t471+29.7609332811852*
        t167*t168*t470-4.713474730666669*t308*t309*t469+0.280919335822222*
        t466*t467*t468)*t147*rhob-0.75*t177*t3*t35*(0.075142874074074*
        t58*t165*t474-0.010988772503704*t156*t164*t473+9.042903798518514E-5*
        t153*t163*t472+7.287608357925925E-7*t149*t162*t471-1.0615984643792592E-8*
        t167*t181*t470+4.03624281884444E-11*t308*t323*t469-5.04397678364444E-14*
        t466*t480*t468)-3.0*t142*t3*t324*t35-1.0*t140*t182*t3*t35+
        0.222222222222222*t166*t176*t3*t35+3.0*t190*t344+3.0*t191*
        t343+3.0*t147*t160*t175*t180*t322-0.001892851318519*t1*t2*
        t3*t146*t160*t321-6.0*t147*t160*t175*t318*t320+96.4940495336121*
        t317*t160*t318*t147*t319+6.0*t175*t174*t179*t147*t180-0.136986666666667*
        t1*t2*t3*t175*t160*t179*t180*t178+0.004258915466667*t1*t2*
        t3*t146*t174*t178+(-0.414362666666667*t58*t68*t474+0.019036042666667*
        t58*t60*t67*t474-4.04012224E-4*t58*t66*t65*t474+5.30760384E-6*
        t58*t64*t63*t474-2.0875954176E-8*t58*t61*t138*t474+0.018447616*
        t156*t67*t473-8.8839168E-4*t156*t60*t65*t473+1.9881455616E-5*
        t156*t66*t63*t473-1.8075969331199996E-7*t156*t64*t138*t473+
        5.3681025024E-10*t156*t61*t295*t473-1.3451673599999998E-4*
        t153*t65*t472+6.758055935999999E-6*t153*t60*t63*t472-1.2356775936E-7*
        t153*t66*t138*t472+9.1757961216E-10*t153*t64*t295*t472-2.34244472832E-12*
        t153*t61*t440*t472)*t148-0.09327*t146*t316*t147+0.41096*t1*
        t2*t3*t175*t160*t318*t320*t143-6.60919909938887*t1*t2*t3*t317*
        t160*t318*t319*t143+0.0063883732*t1*t2*t3*t146*t316*t143-0.20548*
        t1*t2*t3*t175*t160*t322*t180*t143-0.41096*t1*t2*t3*t175*t174*
        t179*t180*t143;
    d3fdrbrbga = 2.0*t190*t345+t199*t343+(-0.004611904*grada*
        t58*t22*t67*t315+2.2209792E-4*grada*t58*t22*t60*t65*t315-4.970363904E-6*
        grada*t58*t22*t66*t63*t315+4.5189923328E-8*grada*t58*t22*t64*
        t138*t315-1.3420256256E-10*grada*t58*t22*t61*t295*t315+1.0088755199999999E-4*
        grada*t156*t22*t65*t314-5.068541952E-6*grada*t156*t22*t60*
        t63*t314+9.267581951999999E-8*grada*t156*t22*t66*t138*t314-
        6.8818470912E-10*grada*t156*t22*t64*t295*t314+1.75683354624E-12*
        grada*t156*t22*t61*t440*t314)*t148;
    d3fdrbrbgb = 2.0*t147*t175*t179*t180*t348*rhob-2.0*t147*
        t175*t205*t318*t320*rhob+32.1646831778707*t317*t205*t318*t147*
        t319*rhob+t175*t205*t322*t147*t180*rhob-0.03109*t146*(-4.098453333333334*
        gradb*t159*t315+31.76154311111111*t204*t157*t314-69.72742542222224*
        t203*t154*t313+56.74945479111113*t202*t151*t312-20.5582167608889*
        t200*t168*t311+3.403425109333335*t346*t309*t310-0.210689501866667*
        t482*t467*t483)*t147*rhob+2.0*t190*t350-2.0*t142*t3*t349*t35-
        0.75*t177*t3*(-0.032204088888889*gradb*t165*t315+0.006029007644444*
        t204*t164*t314-5.897757582222221E-5*t203*t163*t313-4.379267527111111E-7*
        t202*t162*t312+7.225781634844444E-9*t200*t181*t311-2.908963908266666E-11*
        t346*t323*t310+3.78298258773333E-14*t482*t480*t483)*t35-0.333333333333333*
        t140*t206*t3*t35+t207*t343+2.0*t147*t175*t179*t180*t205+0.001419638488889*
        t1*t2*t3*t146*t205*t178+(0.177584*gradb*t68*t315-0.008158304*
        gradb*t60*t67*t315+1.73148096E-4*gradb*t66*t65*t315-2.27468736E-6*
        gradb*t64*t63*t315+8.946837503999999E-9*gradb*t61*t138*t315-
        0.011320128*t204*t67*t314+5.4514944E-4*t204*t60*t65*t314-1.2199984128E-5*
        t204*t66*t63*t314+1.10920720896E-7*t204*t64*t138*t314-3.2940628992E-10*
        t204*t61*t295*t314+1.0088755199999999E-4*t203*t65*t313-5.068541952E-6*
        t203*t60*t63*t313+9.267581951999999E-8*t203*t66*t138*t313-
        6.8818470912E-10*t203*t64*t295*t313+1.75683354624E-12*t203*
        t61*t440*t313)*t148-0.06218*t146*t348*t147+0.004258915466667*
        t1*t2*t3*t146*t348*t143-0.136986666666667*t1*t2*t3*t175*t205*
        t179*t180*t143;
    d3fdrbrbab = 0.0;
    d3fdrbgaga = (0.001257792*t58*t22*t67*t173-6.057216E-5*
        t58*t22*t60*t65*t173-7.5665664E-5*t21*t58*t31*t65*t173+1.3555537919999999E-6*
        t58*t22*t66*t63*t173+3.801406464E-6*t21*t58*t31*t60*t63*t173-
        1.2324524543999998E-8*t58*t22*t64*t138*t173-6.950686463999999E-8*
        t21*t58*t31*t66*t138*t173+3.660069888E-11*t58*t22*t61*t295*
        t173+5.1613853184E-10*t21*t58*t31*t64*t295*t173-1.31762515968E-12*
        t21*t58*t31*t61*t440*t173)*t148+t354*t190;
    d3fdrbgagb = (0.002515584*grada*gradb*t22*t67*t173-1.2114432E-4*
        grada*gradb*t22*t60*t65*t173+2.711107584E-6*grada*gradb*t22*
        t66*t63*t173-2.4649049087999997E-8*grada*gradb*t22*t64*t138*
        t173+7.320139776E-11*grada*gradb*t22*t61*t295*t173-7.5665664E-5*
        grada*t204*t22*t65*t172+3.801406464E-6*grada*t204*t22*t60*
        t63*t172-6.950686463999999E-8*grada*t204*t22*t66*t138*t172+
        5.1613853184E-10*grada*t204*t22*t64*t295*t172-1.31762515968E-12*
        grada*t204*t22*t61*t440*t172)*t148+t355*t190;
    d3fdrbgaab = 0.0;
    d3fdrbgbgb = t175*t357*t179*t147*t180*rhob-0.03109*t146*
        (1.11776*t159*t173-15.209664*t58*t157*t172+39.75808*t156*t154*
        t171-35.76909994666669*t153*t151*t170+13.91969757866667*t149*
        t168*t169-2.437348010666668*t167*t309*t347+0.1580171264*t308*
        t467*t484)*t147*rhob-1.0*t142*t3*t35*t358-0.75*(0.008782933333333*
        t165*t173-0.002881732266667*t58*t164*t172+3.665278293333333E-5*
        t156*t163*t171+2.419641002666668E-7*t153*t162*t170-4.794550408533334E-9*
        t149*t181*t169+2.078282001066667E-11*t167*t323*t347-2.8372369408E-14*
        t308*t480*t484)*t177*t3*t35+t359*t190+(-0.048432*t68*t173+
        0.002224992*t60*t67*t173-4.7222208E-5*t66*t65*t173+6.2036928E-7*
        t64*t63*t173-2.440046592E-9*t61*t138*t173+0.00628896*t58*t67*
        t172-3.028608E-4*t58*t60*t65*t172+6.77776896E-6*t58*t66*t63*
        t172-6.162262272E-8*t58*t64*t138*t172+1.830034944E-10*t58*
        t61*t295*t172-7.5665664E-5*t156*t65*t171+3.801406464E-6*t156*
        t60*t63*t171-6.950686463999999E-8*t156*t66*t138*t171+5.1613853184E-10*
        t156*t64*t295*t171-1.31762515968E-12*t156*t61*t440*t171)*t148-
        0.03109*t146*t357*t147+0.002129457733333*t1*t2*t3*t146*t357*
        t143;
    d3fdrbgbab = 0.0;
    d3fdrbabab = 0.0;
    d3fdgagaga = -0.03109*t19*(5.787456*grada*t30*t31-20.6283456*
        t196*t27*t28+21.49865088000001*t195*t24*t25-9.204326400000003*
        t194*t43*t193+1.729250304000001*t192*t209*t351-0.1185128448*
        t302*t361*t485)*t34*rhoa-0.75*t3*(0.001093824*grada*t39*t31-
        2.1172991999999997E-5*t196*t38*t28-1.1715502080000007E-7*t195*
        t37*t25+3.0825480192E-9*t194*t56*t193-1.4700478464E-11*t192*
        t223*t351+2.1279277056E-14*t302*t374*t485)*t35*t52+(-0.002830032*
        grada*t31*t67+1.3628736E-4*grada*t31*t60*t65+5.674924800000001E-5*
        t196*t28*t65-3.049996032E-6*grada*t31*t66*t63-2.851054848E-6*
        t196*t28*t60*t63+2.7730180224E-8*grada*t31*t64*t138+5.213014848E-8*
        t196*t28*t66*t138-8.235157248E-11*grada*t31*t61*t295-3.8710389888E-10*
        t196*t28*t64*t295+9.8821886976E-13*t196*t28*t61*t440)*t148;
    d3fdgagagb = (-
        9.43344E-4*gradb*t22*t67*t59+4.542912E-5*gradb*t22*t60*t65*
        t59+5.674924800000001E-5*t21*gradb*t31*t65*t59-1.016665344E-6*
        gradb*t22*t66*t63*t59-2.851054848E-6*t21*gradb*t31*t60*t63*
        t59+9.243393408E-9*gradb*t22*t64*t138*t59+5.213014848E-8*t21*
        gradb*t31*t66*t138*t59-2.745052416E-11*gradb*t22*t61*t295*
        t59-3.8710389888E-10*t21*gradb*t31*t64*t295*t59+9.8821886976E-13*
        t21*gradb*t31*t61*t440*t59)*t148;
    d3fdgagaab = 0.0;
    d3fdgagbgb = (-9.43344E-4*grada*t22*t67*t59+4.542912E-5*
        grada*t22*t60*t65*t59-1.016665344E-6*grada*t22*t66*t63*t59+
        9.243393408E-9*grada*t22*t64*t138*t59-2.745052416E-11*grada*
        t22*t61*t295*t59+5.674924800000001E-5*grada*t58*t22*t65*t158-
        2.851054848E-6*grada*t58*t22*t60*t63*t158+5.213014848E-8*grada*
        t58*t22*t66*t138*t158-3.8710389888E-10*grada*t58*t22*t64*t295*
        t158+9.8821886976E-13*grada*t58*t22*t61*t440*t158)*t148;
    d3fdgagbab = 0.0;
    d3fdgaabab = 0.0;
    d3fdgbgbgb = -
        0.03109*t146*(5.787456*gradb*t157*t158-20.6283456*t204*t154*
        t155+21.49865088000001*t203*t151*t152-9.204326400000003*t202*
        t168*t201+1.729250304000001*t200*t309*t356-0.1185128448*t346*
        t467*t486)*t147*rhob-0.75*(0.001093824*gradb*t164*t158-2.1172991999999997E-5*
        t204*t163*t155-1.1715502080000007E-7*t203*t162*t152+3.0825480192E-9*
        t202*t181*t201-1.4700478464E-11*t200*t323*t356+2.1279277056E-14*
        t346*t480*t486)*t177*t3*t35+(-0.002830032*gradb*t67*t158+1.3628736E-4*
        gradb*t60*t65*t158-3.049996032E-6*gradb*t66*t63*t158+2.7730180224E-8*
        gradb*t64*t138*t158-8.235157248E-11*gradb*t61*t295*t158+5.674924800000001E-5*
        t204*t65*t155-2.851054848E-6*t204*t60*t63*t155+5.213014848E-8*
        t204*t66*t138*t155-3.8710389888E-10*t204*t64*t295*t155+9.8821886976E-13*
        t204*t61*t440*t155)*t148;
    d3fdgbgbab = 0.0;
    d3fdgbabab = 0.0;
    d3fdababab = 0.0;


    ds->df1000 += factor*dfdra;
    ds->df0100 += factor*dfdrb;
    ds->df0010 += factor*dfdga;
    ds->df0001 += factor*dfdgb;
    ds->df00001+= factor*dfdgab;

    ds->df2000 += factor*d2fdrara;
    ds->df1100 += factor*d2fdrarb;
    ds->df1010 += factor*d2fdraga;
    ds->df1001 += factor*d2fdragb;
    ds->df10001+= factor*d2fdraab;
    ds->df0200 += factor*d2fdrbrb;
    ds->df0110 += factor*d2fdrbga;
    ds->df0101 += factor*d2fdrbgb;
    ds->df01001+= factor*d2fdrbgab;
    ds->df0020 += factor*d2fdgaga;
    ds->df0011 += factor*d2fdgagb;
    ds->df00101+= factor*d2fdgagab;
    ds->df0002 += factor*d2fdgbgb;
    ds->df00011+= factor*d2fdgbgab;
    ds->df00002+= factor*d2fdgabgab;

    ds->df3000 += factor*d3fdrarara;
    ds->df2100  += factor*d3fdrararb;
    ds->df2010  += factor*d3fdraraga;
    ds->df2001  += factor*d3fdraragb;
    ds->df20001 += factor*d3fdraraab;
    ds->df1200  += factor*d3fdrarbrb;
    ds->df1110  += factor*d3fdrarbga;
    ds->df1101  += factor*d3fdrarbgb;
    ds->df11001 += factor*d3fdrarbab;
    ds->df1020  += factor*d3fdragaga;
    ds->df1011  += factor*d3fdragagb;
    ds->df10101 += factor*d3fdragaab;
    ds->df1002  += factor*d3fdragbgb;
    ds->df10011 += factor*d3fdragbab;
    ds->df10002 += factor*d3fdraabab;
    ds->df0300  += factor*d3fdrbrbrb;
    ds->df0210  += factor*d3fdrbrbga;
    ds->df0201  += factor*d3fdrbrbgb;
    ds->df02001 += factor*d3fdrbrbab;
    ds->df0120  += factor*d3fdrbgaga;
    ds->df0111  += factor*d3fdrbgagb;
    ds->df01101 += factor*d3fdrbgaab;
    ds->df0102  += factor*d3fdrbgbgb;
    ds->df01011 += factor*d3fdrbgbab;
    ds->df01002 += factor*d3fdrbabab;
    ds->df0030  += factor*d3fdgagaga;
    ds->df0021  += factor*d3fdgagagb;
    ds->df00201 += factor*d3fdgagaab;
    ds->df0012  += factor*d3fdgagbgb;
    ds->df00111 += factor*d3fdgagbab;
    ds->df00102 += factor*d3fdgaabab;
    ds->df0003  += factor*d3fdgbgbgb;
    ds->df00021 += factor*d3fdgbgbab;
    ds->df00012 += factor*d3fdgbabab;
    ds->df00003 += factor*d3fdababab;

}

static void
hcth407p_fourth(FunFourthFuncDrv *ds, real factor, const FunDensProp* dp)
{
    real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
    real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
        d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
        d2fdgbgb, d2fdgbgab, d2fdgabgab;
    real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
         d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
         d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
         d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
         d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
         d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
         d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
    real d4fdrararara, d4fdrarararb, d4fdrararaga, d4fdrararagb,
         d4fdrararaab, d4fdrararbrb, d4fdrararbga, d4fdrararbgb, d4fdrararbab,
         d4fdraragaga, d4fdraragagb, d4fdraragaab, d4fdraragbgb, d4fdraragbab,
         d4fdraraabab, d4fdrarbrbrb, d4fdrarbrbga, d4fdrarbrbgb, d4fdrarbrbab,
         d4fdrarbgaga, d4fdrarbgagb, d4fdrarbgaab, d4fdrarbgbgb, d4fdrarbgbab,
         d4fdrarbabab, d4fdragagaga, d4fdragagagb, d4fdragagaab, d4fdragagbgb,
         d4fdragagbab, d4fdragaabab, d4fdragbgbgb, d4fdragbgbab, d4fdragbabab,
         d4fdraababab, d4fdrbrbrbrb, d4fdrbrbrbga, d4fdrbrbrbgb, d4fdrbrbrbab,
         d4fdrbrbgaga, d4fdrbrbgagb, d4fdrbrbgaab, d4fdrbrbgbgb, d4fdrbrbgbab,
         d4fdrbrbabab, d4fdrbgagaga, d4fdrbgagagb, d4fdrbgagaab, d4fdrbgagbgb,
         d4fdrbgagbab, d4fdrbgaabab, d4fdrbgbgbgb, d4fdrbgbgbab, d4fdrbgbabab,
         d4fdrbababab, d4fdgagagaga, d4fdgagagagb, d4fdgagagaab, d4fdgagagbgb,
         d4fdgagagbab, d4fdgagaabab, d4fdgagbgbgb, d4fdgagbgbab, d4fdgagbabab,
         d4fdgaababab, d4fdgbgbgbgb, d4fdgbgbgbab, d4fdgbgbabab, d4fdgbababab,
         d4fdabababab;
    real rhoa = dp->rhoa, rhob = dp->rhob;
    real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;

    real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
    real t11, t12, t13, t14, t15, t16, t17, t18;
    real t19, t20, t21, t22, t23, t24, t25, t26;
    real t27, t28, t29, t30, t31, t32, t33, t34;
    real t35, t36, t37, t38, t39, t40, t41, t42;
    real t43, t44, t45, t46, t47, t48, t49, t50;
    real t51, t52, t53, t54, t55, t56, t57, t58;
    real t59, t60, t61, t62, t63, t64, t65, t66;
    real t67, t68, t69, t70, t71, t72, t73, t74;
    real t75, t76, t77, t78, t79, t80, t81, t82;
    real t83, t84, t85, t86, t87, t88, t89, t90;
    real t91, t92, t93, t94, t95, t96, t97, t98;
    real t99, t100, t101, t102, t103, t104, t105;
    real t106, t107, t108, t109, t110, t111, t112;
    real t113, t114, t115, t116, t117, t118, t119;
    real t120, t121, t122, t123, t124, t125, t126;
    real t127, t128, t129, t130, t131, t132, t133;
    real t134, t135, t136, t137, t138, t139, t140;
    real t141, t142, t143, t144, t145, t146, t147;
    real t148, t149, t150, t151, t152, t153, t154;
    real t155, t156, t157, t158, t159, t160, t161;
    real t162, t163, t164, t165, t166, t167, t168;
    real t169, t170, t171, t172, t173, t174, t175;
    real t176, t177, t178, t179, t180, t181, t182;
    real t183, t184, t185, t186, t187, t188, t189;
    real t190, t191, t192, t193, t194, t195, t196;
    real t197, t198, t199, t200, t201, t202, t203;
    real t204, t205, t206, t207, t208, t209, t210;
    real t211, t212, t213, t214, t215, t216, t217;
    real t218, t219, t220, t221, t222, t223, t224;
    real t225, t226, t227, t228, t229, t230, t231;
    real t232, t233, t234, t235, t236, t237, t238;
    real t239, t240, t241, t242, t243, t244, t245;
    real t246, t247, t248, t249, t250, t251, t252;
    real t253, t254, t255, t256, t257, t258, t259;
    real t260, t261, t262, t263, t264, t265, t266;
    real t267, t268, t269, t270, t271, t272, t273;
    real t274, t275, t276, t277, t278, t279, t280;
    real t281, t282, t283, t284, t285, t286, t287;
    real t288, t289, t290, t291, t292, t293, t294;
    real t295, t296, t297, t298, t299, t300, t301;
    real t302, t303, t304, t305, t306, t307, t308;
    real t309, t310, t311, t312, t313, t314, t315;
    real t316, t317, t318, t319, t320, t321, t322;
    real t323, t324, t325, t326, t327, t328, t329;
    real t330, t331, t332, t333, t334, t335, t336;
    real t337, t338, t339, t340, t341, t342, t343;
    real t344, t345, t346, t347, t348, t349, t350;
    real t351, t352, t353, t354, t355, t356, t357;
    real t358, t359, t360, t361, t362, t363, t364;
    real t365, t366, t367, t368, t369, t370, t371;
    real t372, t373, t374, t375, t376, t377, t378;
    real t379, t380, t381, t382, t383, t384, t385;
    real t386, t387, t388, t389, t390, t391, t392;
    real t393, t394, t395, t396, t397, t398, t399;
    real t400, t401, t402, t403, t404, t405, t406;
    real t407, t408, t409, t410, t411, t412, t413;
    real t414, t415, t416, t417, t418, t419, t420;
    real t421, t422, t423, t424, t425, t426, t427;
    real t428, t429, t430, t431, t432, t433, t434;
    real t435, t436, t437, t438, t439, t440, t441;
    real t442, t443, t444, t445, t446, t447, t448;
    real t449, t450, t451, t452, t453, t454, t455;
    real t456, t457, t458, t459, t460, t461, t462;
    real t463, t464, t465, t466, t467, t468, t469;
    real t470, t471, t472, t473, t474, t475, t476;
    real t477, t478, t479, t480, t481, t482, t483;
    real t484, t485, t486, t487, t488, t489, t490;
    real t491, t492, t493, t494, t495, t496, t497;
    real t498, t499, t500, t501, t502, t503, t504;
    real t505, t506, t507, t508, t509, t510, t511;
    real t512, t513, t514, t515, t516, t517, t518;
    real t519, t520, t521, t522, t523, t524, t525;
    real t526, t527, t528, t529, t530, t531, t532;
    real t533, t534, t535, t536, t537, t538, t539;
    real t540, t541, t542, t543, t544, t545, t546;
    real t547, t548, t549, t550, t551, t552, t553;
    real t554, t555, t556, t557, t558, t559, t560;
    real t561, t562, t563, t564, t565, t566, t567;
    real t568, t569, t570, t571, t572, t573, t574;
    real t575, t576, t577, t578, t579, t580, t581;
    real t582, t583, t584, t585, t586, t587, t588;
    real t589, t590, t591, t592, t593, t594, t595;
    real t596, t597, t598, t599, t600, t601, t602;
    real t603, t604, t605, t606, t607, t608, t609;
    real t610, t611, t612, t613, t614, t615, t616;
    real t617, t618, t619, t620, t621, t622, t623;
    real t624, t625, t626, t627, t628, t629, t630;
    real t631, t632, t633, t634, t635, t636, t637;
    real t638, t639, t640, t641, t642, t643, t644;
    real t645, t646, t647, t648, t649, t650, t651;
    real t652, t653, t654, t655, t656, t657, t658;
    real t659, t660, t661, t662, t663, t664, t665;
    real t666, t667, t668, t669, t670, t671, t672;
    real t673, t674, t675, t676, t677, t678, t679;
    real t680, t681, t682, t683, t684, t685, t686;
    real t687, t688, t689, t690, t691, t692, t693;
    real t694, t695, t696, t697, t698, t699, t700;
    real t701, t702, t703, t704, t705, t706, t707;
    real t708, t709, t710, t711, t712, t713, t714;
    real t715, t716, t717, t718, t719, t720, t721;
    real t722, t723, t724, t725, t726, t727, t728;
    real t729, t730, t731, t732, t733, t734, t735;
    real t736, t737, t738, t739, t740, t741, t742;
    real t743, t744, t745, t746, t747, t748, t749;
    real t750, t751, t752, t753, t754, t755, t756;
    real t757, t758, t759, t760, t761, t762, t763;
    real t764, t765, t766, t767, t768, t769, t770;
    real t771, t772, t773, t774, t775, t776, t777;
    real t778, t779, t780, t781, t782, t783, t784;
    real t785, t786, t787, t788;

    t1 = pow(3.0,0.333333333333333);
    t2 = 1/pow(4.0,0.333333333333333);
    t3 = 1/pow(3.141592653589793,0.333333333333333);
    t4 = pow(3.0,0.666666666666667);
    t5 = 1/pow(4.0,0.666666666666667);
    t6 = 1/pow(3.141592653589793,0.666666666666667);
    t7 = 1/pow(rhoa,0.666666666666667);
    t8 = 1.732050807568877;
    t9 = 0.564189583547756;
    t10 = sqrt(rhoa);
    t11 = pow(rhoa,0.333333333333333);
    t12 = 1/t11;
    t13 = pow(2.0,0.333333333333333);
    t14 = 1/t13;
    t15 = pow(3.0,0.166666666666667);
    t16 = 1/pow(3.141592653589793,0.166666666666667);
    t17 = 14.1189*t14*t15*t16/pow(rhoa,0.166666666666667)+
        1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
    t18 = 32.1646831778707/
        t17+1.0;
    t19 = log(t18);
    t20 = pow(grada,8.0);
    t21 = pow(grada,2.0);
    t22 = 1/pow(rhoa,2.666666666666667);
    t23 = 0.2*t21*t22+1.0;
    t24 = 1/pow(t23,4.0);
    t25 = 1/pow(rhoa,10.66666666666667);
    t26 = pow(grada,6.0);
    t27 = 1/pow(t23,3.0);
    t28 = 1/pow(rhoa,8.0);
    t29 = pow(grada,4.0);
    t30 = 1/pow(t23,2.0);
    t31 = 1/pow(rhoa,5.333333333333333);
    t32 = 1/t23;
    t33 = -0.20958*t21*t32*t22+0.199228*t29*t30*t31-0.10312*
        t26*t27*t28+0.01543136*t20*t24*t25+0.80302;
    t34 = 0.20548*t1*t2*t3*t12+1.0;
    t35 = pow(6.0,0.333333333333333);
    t36 = 0.004*t21*t22+1.0;
    t37 = 1/pow(t36,4.0);
    t38 = 1/pow(t36,3.0);
    t39 = 1/pow(t36,2.0);
    t40 = 1/t36;
    t41 = -0.0016468*t21*t40*t22+3.89888E-5*t29*t39*t31+8.8896E-8*
        t26*t38*t28-3.463424E-10*t20*t37*t25+1.08018;
    t42 = pow(grada,10.0);
    t43 = 1/pow(t23,5.0);
    t44 = 1/pow(rhoa,14.33333333333333);
    t45 = 1/pow(rhoa,11.66666666666667);
    t46 = 1/pow(rhoa,9.0);
    t47 = 1/pow(rhoa,6.333333333333333);
    t48 = 1/pow(rhoa,3.666666666666667);
    t49 = 0.55888*t21*t32*t48-1.174325333333333*t29*t30*t47+
        1.037469866666667*t26*t27*t46-0.329593173333333*t20*t24*t45+
        0.032920234666667*t42*t43*t44;
    t50 = 1/t18;
    t51 = 1/pow(rhoa,1.666666666666667);
    t52 = pow(rhoa,1.333333333333333);
    t53 = 1/t52;
    t54 = -2.35315*t14*t15*t16/pow(rhoa,1.166666666666667)-
        0.84155*t8*t9/pow(t10,3.0)-2.0659*t1*t2*t3*t53-0.41678*t4*
        t5*t6*t51;
    t55 = 1/pow(t17,2.0);
    t56 = 1/pow(t36,5.0);
    t57 = 0.004391466666667*t21*t40*t48-2.255061333333333E-4*
        t29*t39*t47+1.205930666666665E-7*t26*t38*t46+6.538990933333333E-9*
        t20*t37*t45-1.477727573333333E-11*t42*t56*t44;
    t58 = pow(gradb,2.0);
    t59 = 1/pow(rhob,2.666666666666667);
    t60 = 0.5*t58*t59+0.5*t21*t22;
    t61 = pow(t60,4.0);
    t62 = 0.006*t60+1.0;
    t63 = 1/pow(t62,4.0);
    t64 = pow(t60,3.0);
    t65 = 1/pow(t62,3.0);
    t66 = pow(t60,2.0);
    t67 = 1/pow(t62,2.0);
    t68 = 1/t62;
    t69 = 0.018162*t60*t68-3.627E-4*t66*t67+4.451976E-6*t64*
        t65-3.8125728E-8*t61*t63+0.73604;
    t70 = rhob+rhoa;
    t71 = 1/pow(t70,0.333333333333333);
    t72 = 0.2137*t1*t2*t3*t71+1.0;
    t73 = 1/pow(t70,0.666666666666667);
    t74 = sqrt(t70);
    t75 = 1/t74;
    t76 = 1/pow(t70,0.166666666666667);
    t77 = 7.5957*t14*t15*t16*t76+3.5876*t1*t2*t3*t71+0.8191*
        t8*t9*t75+0.49294*t4*t5*t6*t73;
    t78 = 16.0818243221511/t77+1.0;
    t79 = log(t78);
    t80 = -0.062182*t72*t79;
    t81 = 1/(2.0*t13-2.0);
    t82 = rhoa-1.0*rhob;
    t83 = pow(t82,4.0);
    t84 = 1/pow(t70,4.0);
    t85 = 1.0-1.0*t83*t84;
    t86 = 0.11125*t1*t2*t3*t71+1.0;
    t87 = 1/t70;
    t88 = 1.0-1.0*t82*t87;
    t89 = t82*t87+1.0;
    t90 = pow(t89,1.333333333333333)+pow(t88,1.333333333333333)-
        2.0;
    t91 = 10.357*t14*t15*t16*t76+3.6231*t1*t2*t3*t71+0.44013*
        t8*t9*t75+0.49671*t4*t5*t6*t73;
    t92 = 29.60857464321668/t91+1.0;
    t93 = log(t92);
    t94 = 0.019751789702565*t81*t85*t86*t90*t93;
    t95 = 0.20548*t1*t2*t3*t71+1.0;
    t96 = 14.1189*t14*t15*t16*t76+6.1977*t1*t2*t3*t71+1.6831*
        t8*t9*t75+0.62517*t4*t5*t6*t73;
    t97 = 32.1646831778707/t96+1.0;
    t98 = log(t97);
    t99 = 0.062182*t72*t79-0.03109*t95*t98;
    t100 = t81*t83*t84*t90*t99;
    t101 = 1/pow(t70,1.666666666666667);
    t102 = 1/pow(t74,3.0);
    t103 = 1/pow(t70,1.333333333333333);
    t104 = 1/pow(t70,1.166666666666667);
    t105 = -1.26595*t14*t15*t16*t104-1.195866666666667*t1*
        t2*t3*t103-0.40955*t8*t9*t102-0.328626666666667*t4*t5*t6*t101;
    t106 = 1/
        pow(t77,2.0);
    t107 = 1/t78;
    t108 = 1.0*t105*t72*t106*t107;
    t109 = -1.726166666666666*t14*t15*t16*t104-1.2077*t1*
        t2*t3*t103-0.220065*t8*t9*t102-0.33114*t4*t5*t6*t101;
    t110 = 1/pow(t91,2.0);
    t111 = 1/t92;
    t112 = -0.58482233974552*t81*t85*t109*t86*t110*t90*t111;
    t113 = 0.004429431133333*
        t1*t2*t3*t103*t79;
    t114 = 1/pow(t70,2.0);
    t115 = t82*t114;
    t116 = -1.0*t87;
    t117 = t116+t115;
    t118 = pow(t88,0.333333333333333);
    t119 = -1.0*t114*t82;
    t120 = t87+t119;
    t121 = pow(t89,0.333333333333333);
    t122 = 1.333333333333333*t120*t121+1.333333333333333*
        t117*t118;
    t123 = 0.019751789702565*t81*t85*t86*t122*t93;
    t124 = -7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t90*
        t93;
    t125 = 1/pow(t70,5.0);
    t126 = 4.0*t125*t83;
    t127 = pow(t82,3.0);
    t128 = t126-4.0*t127*t84;
    t129 = 0.019751789702565*t81*t128*t86*t90*t93;
    t130 = -2.35315*t14*t15*t16*t104-2.0659*t1*t2*t3*t103-
        0.84155*t8*t9*t102-0.41678*t4*t5*t6*t101;
    t131 = 1/pow(t96,2.0);
    t132 = 1/t97;
    t133 = 0.002129457733333*t1*t2*t3*t103*t98-0.004429431133333*
        t1*t2*t3*t103*t79+t130*t95*t131*t132-1.0*t105*t72*t106*t107;
    t134 = t81*
        t83*t84*t90*t133;
    t135 = t81*t83*t84*t122*t99;
    t136 = -4.0*t125*t81*t83*t90*t99;
    t137 = -1.0*t50*t54*t34*t55*rhoa+t70*(4.0*t127*t81*t84*
        t90*t99+t136+t135+t134+t129+t124+t123+t113+t112+t108)+t94+
        t80+0.03109*t19*t34-0.002129457733333*t1*t2*t3*t19*t12+t100;
    t138 = 1/
        pow(t62,5.0);
    t139 = -0.024216*t21*t48*t68+0.001112496*t21*t48*t60*
        t67-2.3611104E-5*t21*t48*t66*t65+3.1018464E-7*t21*t48*t64*
        t63-1.220023296E-9*t21*t48*t61*t138;
    t140 = 1/pow(rhob,0.666666666666667);
    t141 = sqrt(rhob);
    t142 = pow(rhob,0.333333333333333);
    t143 = 1/t142;
    t144 = 14.1189*t14*t15*t16/pow(rhob,0.166666666666667)+
        1.6831*t8*t9/t141+6.1977*t1*t2*t3*t143+0.62517*t4*t5*t6*t140;
    t145 = 32.1646831778707/
        t144+1.0;
    t146 = log(t145);
    t147 = 0.20548*t1*t2*t3*t143+1.0;
    t148 = t70*(t100+t94+t80)+0.03109*t146*t147*rhob+0.03109*
        t19*t34*rhoa;
    t149 = pow(gradb,8.0);
    t150 = 0.2*t58*t59+1.0;
    t151 = 1/pow(t150,4.0);
    t152 = 1/pow(rhob,10.66666666666667);
    t153 = pow(gradb,6.0);
    t154 = 1/pow(t150,3.0);
    t155 = 1/pow(rhob,8.0);
    t156 = pow(gradb,4.0);
    t157 = 1/pow(t150,2.0);
    t158 = 1/pow(rhob,5.333333333333333);
    t159 = 1/t150;
    t160 = -0.20958*t58*t159*t59+0.199228*t156*t157*t158-
        0.10312*t153*t154*t155+0.01543136*t149*t151*t152+0.80302;
    t161 = 0.004*
        t58*t59+1.0;
    t162 = 1/pow(t161,4.0);
    t163 = 1/pow(t161,3.0);
    t164 = 1/pow(t161,2.0);
    t165 = 1/t161;
    t166 = -0.0016468*t58*t165*t59+3.89888E-5*t156*t164*t158+
        8.8896E-8*t153*t163*t155-3.463424E-10*t149*t162*t152+1.08018;
    t167 = pow(gradb,
        10.0);
    t168 = 1/pow(t150,5.0);
    t169 = 1/pow(rhob,14.33333333333333);
    t170 = 1/pow(rhob,11.66666666666667);
    t171 = 1/pow(rhob,9.0);
    t172 = 1/pow(rhob,6.333333333333333);
    t173 = 1/pow(rhob,3.666666666666667);
    t174 = 0.55888*t58*t159*t173-1.174325333333333*t156*t157*
        t172+1.037469866666667*t153*t154*t171-0.329593173333333*t149*
        t151*t170+0.032920234666667*t167*t168*t169;
    t175 = 1/t145;
    t176 = 1/pow(rhob,1.666666666666667);
    t177 = pow(rhob,1.333333333333333);
    t178 = 1/t177;
    t179 = -2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-
        0.84155*t8*t9/pow(t141,3.0)-2.0659*t1*t2*t3*t178-0.41678*t4*
        t5*t6*t176;
    t180 = 1/pow(t144,2.0);
    t181 = 1/pow(t161,5.0);
    t182 = 0.004391466666667*t58*t165*t173-2.255061333333333E-4*
        t156*t164*t172+1.205930666666665E-7*t153*t163*t171+6.538990933333333E-9*
        t149*t162*t170-1.477727573333333E-11*t167*t181*t169;
    t183 = t87+t115;
    t184 = t116+t119;
    t185 = 1.333333333333333*t121*t184+1.333333333333333*
        t118*t183;
    t186 = 0.019751789702565*t81*t85*t86*t185*t93;
    t187 = 4.0*t127*t84+t126;
    t188 = 0.019751789702565*t81*t187*t86*t90*t93;
    t189 = t81*t83*t84*t185*t99;
    t190 = -1.0*t175*t179*t147*t180*rhob+t70*(-4.0*t127*t81*
        t84*t90*t99+t189+t188+t186+t136+t134+t124+t113+t112+t108)+
        t94+t80+0.03109*t146*t147-0.002129457733333*t1*t2*t3*t146*
        t143+t100;
    t191 = -0.024216*t58*t68*t173+0.001112496*t58*t60*t67*
        t173-2.3611104E-5*t58*t66*t65*t173+3.1018464E-7*t58*t64*t63*
        t173-1.220023296E-9*t58*t61*t138*t173;
    t192 = pow(grada,9.0);
    t193 = 1/pow(rhoa,13.33333333333333);
    t194 = pow(grada,7.0);
    t195 = pow(grada,5.0);
    t196 = pow(grada,3.0);
    t197 = -0.41916*grada*t32*t22+0.880744*t196*t30*t31-0.7781024*
        t195*t27*t28+0.24719488*t194*t24*t25-0.024690176*t192*t43*
        t193;
    t198 = -0.0032936*grada*t40*t22+1.6912959999999997E-4*
        t196*t39*t31-9.04447999999999E-8*t195*t38*t28-4.9042432E-9*
        t194*t37*t25+1.10829568E-11*t192*t56*t193;
    t199 = 0.018162*grada*t22*t68-8.34372E-4*grada*t22*t60*
        t67+1.7708328E-5*grada*t22*t66*t65-2.3263848E-7*grada*t22*
        t64*t63+9.15017472E-10*grada*t22*t61*t138;
    t200 = pow(gradb,9.0);
    t201 = 1/pow(rhob,13.33333333333333);
    t202 = pow(gradb,7.0);
    t203 = pow(gradb,5.0);
    t204 = pow(gradb,3.0);
    t205 = -0.41916*gradb*t159*t59+0.880744*t204*t157*t158-
        0.7781024*t203*t154*t155+0.24719488*t202*t151*t152-0.024690176*
        t200*t168*t201;
    t206 = -0.0032936*gradb*t165*t59+1.6912959999999997E-4*
        t204*t164*t158-9.04447999999999E-8*t203*t163*t155-4.9042432E-9*
        t202*t162*t152+1.10829568E-11*t200*t181*t201;
    t207 = 0.018162*gradb*t68*t59-8.34372E-4*gradb*t60*t67*
        t59+1.7708328E-5*gradb*t66*t65*t59-2.3263848E-7*gradb*t64*
        t63*t59+9.15017472E-10*gradb*t61*t138*t59;
    t208 = pow(grada,12.0);
    t209 = 1/pow(t23,6.0);
    t210 = 1/pow(rhoa,18.0);
    t211 = 1/pow(rhoa,15.33333333333333);
    t212 = 1/pow(rhoa,12.66666666666667);
    t213 = 1/pow(rhoa,10.0);
    t214 = 1/pow(rhoa,7.333333333333333);
    t215 = 1/pow(rhoa,4.666666666666667);
    t216 = -2.049226666666667*t21*t32*t215+7.735463111111112*
        t29*t30*t214-10.58984248888889*t26*t27*t213+5.505205475555558*
        t20*t24*t212-1.174988800000001*t42*t43*t211+0.087787292444444*
        t208*t209*t210;
    t217 = 1/pow(t18,2.0);
    t218 = pow(t54,2.0);
    t219 = 1/pow(t17,4.0);
    t220 = 1/pow(t17,3.0);
    t221 = 1/pow(rhoa,2.333333333333333);
    t222 = 2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
        1.262325*t8*t9/pow(t10,5.0)+2.754533333333333*t1*t2*t3*t221+
        0.694633333333333*t4*t5*t6*t22;
    t223 = 1/pow(t36,6.0);
    t224 = -0.016102044444444*t21*t40*t215+0.001475047822222*
        t29*t39*t214-5.896135111111109E-6*t26*t38*t213-7.242924942222222E-8*
        t20*t37*t212+4.90804565333333E-10*t42*t56*t211-7.88121372444444E-13*
        t208*t223*t210;
    t225 = 2.0*t105*t72*t106*t107;
    t226 = -1.169644679491041*t81*t85*t109*t86*t110*t90*t111;
    t227 = 0.008858862266667*
        t1*t2*t3*t103*t79;
    t228 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t90*t93;
    t229 = 2.0*
        t133*t81*t83*t84*t90;
    t230 = -8.0*t125*t81*t83*t90*t99;
    t231 = pow(t105,2.0);
    t232 = 1/pow(t77,4.0);
    t233 = 1/pow(t78,2.0);
    t234 = 16.0818243221511*t231*t72*t232*t233;
    t235 = 1/pow(t77,3.0);
    t236 = -2.0*t231*t72*t235*t107;
    t237 = -0.142466666666667*t1*t2*t3*t103*t105*t106*t107;
    t238 = 1/
        pow(t70,2.666666666666667);
    t239 = 1/pow(t74,5.0);
    t240 = 1/pow(t70,2.333333333333333);
    t241 = 1/pow(t70,2.166666666666667);
    t242 = 1.476941666666667*t14*t15*t16*t241+1.594488888888889*
        t1*t2*t3*t240+0.614325*t8*t9*t239+0.547711111111111*t4*t5*
        t6*t238;
    t243 = 1.0*t242*t72*t106*t107;
    t244 = pow(t109,2.0);
    t245 = 1/pow(t91,4.0);
    t246 = 1/pow(t92,2.0);
    t247 = -17.31575589937587*t81*t85*t244*t86*t245*t90*t246;
    t248 = -
        1.169644679491041*t81*t85*t109*t86*t110*t122*t111;
    t249 = 1/pow(t91,3.0);
    t250 = 1.169644679491041*t81*t85*t244*t86*t249*t90*t111;
    t251 = 0.043374323531126*
        t81*t1*t2*t3*t103*t85*t109*t110*t90*t111;
    t252 = 2.013861111111111*t14*t15*t16*t241+1.610266666666667*
        t1*t2*t3*t240+0.3300975*t8*t9*t239+0.5519*t4*t5*t6*t238;
    t253 = -
        0.58482233974552*t81*t85*t252*t86*t110*t90*t111;
    t254 = -1.169644679491041*t81*t128*t109*t86*t110*t90*
        t111;
    t255 = -0.005905908177778*t1*t2*t3*t240*t79;
    t256 = pow(t117,2.0);
    t257 = 1/pow(t88,0.666666666666667);
    t258 = 1/pow(t70,3.0);
    t259 = -2.0*t258*t82;
    t260 = 2.0*t114;
    t261 = t260+t259;
    t262 = pow(t120,2.0);
    t263 = 1/pow(t89,0.666666666666667);
    t264 = 2.0*t258*t82;
    t265 = -2.0*t114;
    t266 = t265+t264;
    t267 = 1.333333333333333*t121*t266+0.444444444444444*
        t262*t263+1.333333333333333*t118*t261+0.444444444444444*t256*
        t257;
    t268 = 0.019751789702565*t81*t85*t86*t267*t93;
    t269 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t122*t93;
    t270 = 0.03950357940513*
        t81*t128*t86*t122*t93;
    t271 = -0.00146492440294*t81*t1*t2*t3*t103*t128*t90*t93;
    t272 = 9.76616268626835E-4*t81*t1*t2*t3*t240*t85*t90*
        t93;
    t273 = 1/pow(t70,6.0);
    t274 = -20.0*t273*t83;
    t275 = pow(t82,2.0);
    t276 = -12.0*t275*t84;
    t277 = t276+t274+32.0*t125*t127;
    t278 = 0.019751789702565*t81*t277*t86*t90*t93;
    t279 = pow(t130,2.0);
    t280 = 1/pow(t96,4.0);
    t281 = 1/pow(t97,2.0);
    t282 = 1/pow(t96,3.0);
    t283 = 2.745341666666667*t14*t15*t16*t241+2.754533333333333*
        t1*t2*t3*t240+1.262325*t8*t9*t239+0.694633333333333*t4*t5*
        t6*t238;
    t284 = -0.002839276977778*t1*t2*t3*t240*t98-2.0*t132*
        t279*t282*t95+0.005905908177778*t1*t2*t3*t240*t79+32.1646831778707*
        t279*t95*t280*t281-16.0818243221511*t231*t72*t232*t233+t283*
        t95*t131*t132-0.136986666666667*t1*t2*t3*t103*t130*t131*t132+
        2.0*t231*t72*t235*t107-1.0*t242*t72*t106*t107+0.142466666666667*
        t1*t2*t3*t103*t105*t106*t107;
    t285 = t81*t83*t84*t90*t284;
    t286 = 2.0*t122*t133*t81*t83*t84;
    t287 = -8.0*t125*t133*t81*t83*t90;
    t288 = 8.0*t127*t133*t81*t84*t90;
    t289 = t81*t83*t84*t267*t99;
    t290 = -8.0*t122*t125*t81*t83*t99;
    t291 = 20.0*t273*t81*t83*t90*t99;
    t292 = -32.0*t125*t127*t81*t90*t99;
    t293 = 12.0*t275*t81*t84*t90*t99;
    t294 = -1.0*t50*t222*t34*t55*rhoa+2.0*t50*t218*t34*t220*
        rhoa-32.1646831778707*t217*t218*t34*t219*rhoa+t70*(8.0*t122*
        t127*t81*t84*t99+t293+t292+t291+t290+t289+t288+t287+t286+t285+
        t278+t272+t271+t270+t269+t268+t255+t254+t253+t251+t250+t248+
        t247+t243+t237+t236+t234)+8.0*t127*t81*t84*t90*t99+2.0*t122*
        t81*t83*t84*t99+0.03950357940513*t81*t128*t86*t90*t93+0.03950357940513*
        t81*t85*t86*t122*t93-2.0*t50*t54*t34*t55-0.001419638488889*
        t1*t2*t3*t19*t53+t230+t229+t228+t227+t226+t225+0.136986666666667*
        t1*t2*t3*t50*t54*t55*t12;
    t295 = 1/pow(t62,6.0);
    t296 = 0.088792*t21*t215*t68-0.004079152*t21*t215*t60*
        t67-0.001677056*t29*t214*t67+8.6574048E-5*t21*t215*t66*t65+
        8.076287999999999E-5*t29*t214*t60*t65-1.13734368E-6*t21*t215*
        t64*t63-1.807405056E-6*t29*t214*t66*t63+4.473418752E-9*t21*
        t215*t61*t138+1.6432699391999998E-8*t29*t214*t64*t138-4.880093184E-11*
        t29*t214*t61*t295;
    t297 = 2.666666666666667*t121*t258*t82-2.666666666666667*
        t118*t258*t82+0.444444444444444*t120*t184*t263+0.444444444444444*
        t117*t183*t257;
    t298 = 12.0*t275*t84+t274;
    t299 = -12.0*t275*t81*t84*t90*t99;
    t300 = t70*(4.0*t127*t185*t81*t84*t99-4.0*t122*t127*t81*
        t84*t99-4.0*t125*t185*t81*t83*t99-4.0*t122*t125*t81*t83*t99+
        t81*t83*t84*t297*t99+0.019751789702565*t81*t298*t86*t90*t93-
        7.324622014701263E-4*t81*t1*t2*t3*t103*t187*t90*t93-7.324622014701263E-4*
        t81*t1*t2*t3*t103*t128*t90*t93+0.019751789702565*t81*t85*t86*
        t297*t93+0.019751789702565*t81*t128*t86*t185*t93-7.324622014701263E-4*
        t81*t1*t2*t3*t103*t85*t185*t93+0.019751789702565*t81*t187*
        t86*t122*t93-7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t122*
        t93+t299+t291+t287+t285+t272+t255+t253+t251+t250+t247+t243+
        t237+t236+t234+t81*t83*t84*t185*t133+t81*t83*t84*t122*t133-
        0.58482233974552*t81*t187*t109*t86*t110*t90*t111-0.58482233974552*
        t81*t128*t109*t86*t110*t90*t111-0.58482233974552*t81*t85*t109*
        t86*t110*t185*t111-0.58482233974552*t81*t85*t109*t86*t110*
        t122*t111)+t230+t229+t228+t227+t226+t225+t189+t188+t186+t135+
        t129+t123;
    t301 = -0.001677056*t21*t58*t48*t67*t173+8.076287999999999E-5*
        t21*t58*t48*t60*t65*t173-1.807405056E-6*t21*t58*t48*t66*t63*
        t173+1.6432699391999998E-8*t21*t58*t48*t64*t138*t173-4.880093184E-11*
        t21*t58*t48*t61*t295*t173;
    t302 = pow(grada,11.0);
    t303 = 1/pow(rhoa,17.0);
    t304 = 1.11776*grada*t32*t48-4.920853333333334*t196*t30*
        t47+7.164279466666668*t195*t27*t46-3.881709226666668*t194*
        t24*t45+0.856551424*t192*t43*t44-0.065840469333333*t302*t209*
        t303;
    t305 = 0.008782933333333*grada*t40*t48-9.371562666666666E-4*
        t196*t39*t47+4.331656533333332E-6*t195*t38*t46+4.941769386666667E-8*
        t194*t37*t45-3.570204672E-10*t192*t56*t44+5.91091029333333E-13*
        t302*t223*t303;
    t306 = -0.048432*grada*t48*t68+0.002224992*grada*t48*
        t60*t67+0.001257792*t196*t47*t67-4.7222208E-5*grada*t48*t66*
        t65-6.057216E-5*t196*t47*t60*t65+6.2036928E-7*grada*t48*t64*
        t63+1.3555537919999999E-6*t196*t47*t66*t63-2.440046592E-9*
        grada*t48*t61*t138-1.2324524543999998E-8*t196*t47*t64*t138+
        3.660069888E-11*t196*t47*t61*t295;
    t307 = 0.001257792*t21*gradb*t48*t67*t59-6.057216E-5*
        t21*gradb*t48*t60*t65*t59+1.3555537919999999E-6*t21*gradb*
        t48*t66*t63*t59-1.2324524543999998E-8*t21*gradb*t48*t64*t138*
        t59+3.660069888E-11*t21*gradb*t48*t61*t295*t59;
    t308 = pow(gradb,12.0);
    t309 = 1/pow(t150,6.0);
    t310 = 1/pow(rhob,18.0);
    t311 = 1/pow(rhob,15.33333333333333);
    t312 = 1/pow(rhob,12.66666666666667);
    t313 = 1/pow(rhob,10.0);
    t314 = 1/pow(rhob,7.333333333333333);
    t315 = 1/pow(rhob,4.666666666666667);
    t316 = -2.049226666666667*t58*t159*t315+7.735463111111112*
        t156*t157*t314-10.58984248888889*t153*t154*t313+5.505205475555558*
        t149*t151*t312-1.174988800000001*t167*t168*t311+0.087787292444444*
        t308*t309*t310;
    t317 = 1/pow(t145,2.0);
    t318 = pow(t179,2.0);
    t319 = 1/pow(t144,4.0);
    t320 = 1/pow(t144,3.0);
    t321 = 1/pow(rhob,2.333333333333333);
    t322 = 2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
        1.262325*t8*t9/pow(t141,5.0)+0.694633333333333*t4*t5*t6*t59+
        2.754533333333333*t1*t2*t3*t321;
    t323 = 1/pow(t161,6.0);
    t324 = -0.016102044444444*t58*t165*t315+0.001475047822222*
        t156*t164*t314-5.896135111111109E-6*t153*t163*t313-7.242924942222222E-8*
        t149*t162*t312+4.90804565333333E-10*t167*t181*t311-7.88121372444444E-13*
        t308*t323*t310;
    t325 = -1.169644679491041*t81*t85*t109*t86*t110*t185*
        t111;
    t326 = -1.169644679491041*t81*t187*t109*t86*t110*t90*
        t111;
    t327 = pow(t183,2.0);
    t328 = t265+t259;
    t329 = pow(t184,2.0);
    t330 = t260+t264;
    t331 = 1.333333333333333*t121*t330+0.444444444444444*
        t263*t329+1.333333333333333*t118*t328+0.444444444444444*t257*
        t327;
    t332 = 0.019751789702565*t81*t85*t86*t331*t93;
    t333 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t185*t93;
    t334 = 0.03950357940513*
        t81*t187*t86*t185*t93;
    t335 = -0.00146492440294*t81*t1*t2*t3*t103*t187*t90*t93;
    t336 = t276+
        t274-32.0*t125*t127;
    t337 = 0.019751789702565*t81*t336*t86*t90*t93;
    t338 = 2.0*t133*t185*t81*t83*t84;
    t339 = -8.0*t127*t133*t81*t84*t90;
    t340 = t81*t83*t84*t331*t99;
    t341 = -8.0*t125*t185*t81*t83*t99;
    t342 = 32.0*t125*t127*t81*t90*t99;
    t343 = 2.0*t175*t318*t147*t320*rhob-32.1646831778707*
        t317*t318*t147*t319*rhob-1.0*t175*t322*t147*t180*rhob+t70*
        (-8.0*t127*t185*t81*t84*t99+t342+t341+t340+t339+t338+t337+
        t335+t334+t333+t332+t326+t325+t293+t291+t287+t285+t272+t255+
        t253+t251+t250+t247+t243+t237+t236+t234)-8.0*t127*t81*t84*
        t90*t99+2.0*t185*t81*t83*t84*t99+0.03950357940513*t81*t187*
        t86*t90*t93+0.03950357940513*t81*t85*t86*t185*t93+t230+t229+
        t228+t227+t226+t225-2.0*t175*t179*t147*t180-0.001419638488889*
        t1*t2*t3*t146*t178+0.136986666666667*t1*t2*t3*t175*t179*t180*
        t143;
    t344 = 0.088792*t58*t68*t315-0.004079152*t58*t60*t67*
        t315+8.6574048E-5*t58*t66*t65*t315-1.13734368E-6*t58*t64*t63*
        t315+4.473418752E-9*t58*t61*t138*t315-0.001677056*t156*t67*
        t314+8.076287999999999E-5*t156*t60*t65*t314-1.807405056E-6*
        t156*t66*t63*t314+1.6432699391999998E-8*t156*t64*t138*t314-
        4.880093184E-11*t156*t61*t295*t314;
    t345 = 0.001257792*grada*t58*t22*t67*t173-6.057216E-5*
        grada*t58*t22*t60*t65*t173+1.3555537919999999E-6*grada*t58*
        t22*t66*t63*t173-1.2324524543999998E-8*grada*t58*t22*t64*t138*
        t173+3.660069888E-11*grada*t58*t22*t61*t295*t173;
    t346 = pow(gradb,11.0);
    t347 = 1/pow(rhob,17.0);
    t348 = 1.11776*gradb*t159*t173-4.920853333333334*t204*
        t157*t172+7.164279466666668*t203*t154*t171-3.881709226666668*
        t202*t151*t170+0.856551424*t200*t168*t169-0.065840469333333*
        t346*t309*t347;
    t349 = 0.008782933333333*gradb*t165*t173-9.371562666666666E-4*
        t204*t164*t172+4.331656533333332E-6*t203*t163*t171+4.941769386666667E-8*
        t202*t162*t170-3.570204672E-10*t200*t181*t169+5.91091029333333E-13*
        t346*t323*t347;
    t350 = -0.048432*gradb*t68*t173+0.002224992*gradb*t60*
        t67*t173-4.7222208E-5*gradb*t66*t65*t173+6.2036928E-7*gradb*
        t64*t63*t173-2.440046592E-9*gradb*t61*t138*t173+0.001257792*
        t204*t67*t172-6.057216E-5*t204*t60*t65*t172+1.3555537919999999E-6*
        t204*t66*t63*t172-1.2324524543999998E-8*t204*t64*t138*t172+
        3.660069888E-11*t204*t61*t295*t172;
    t351 = 1/pow(rhoa,16.0);
    t352 = -0.41916*t32*t22+2.809896*t21*t30*t31-4.595107200000001*
        t29*t27*t28+2.664087040000001*t26*t24*t25-0.617723392*t20*
        t43*t193+0.049380352*t42*t209*t351;
    t353 = -0.0032936*t40*t22+5.337375999999999E-4*t21*t39*
        t31-3.158297599999999E-6*t29*t38*t28-3.215902720000001E-8*
        t26*t37*t25+2.566823936E-10*t20*t56*t193-4.43318272E-13*t42*
        t223*t351;
    t354 = 0.018162*t22*t68-8.34372E-4*t22*t60*t67-9.43344E-4*
        t21*t31*t67+1.7708328E-5*t22*t66*t65+4.542912E-5*t21*t31*t60*
        t65-2.3263848E-7*t22*t64*t63-1.016665344E-6*t21*t31*t66*t63+
        9.15017472E-10*t22*t61*t138+9.243393408E-9*t21*t31*t64*t138-
        2.745052416E-11*t21*t31*t61*t295;
    t355 = -9.43344E-4*grada*gradb*t22*t67*t59+4.542912E-5*
        grada*gradb*t22*t60*t65*t59-1.016665344E-6*grada*gradb*t22*
        t66*t63*t59+9.243393408E-9*grada*gradb*t22*t64*t138*t59-2.745052416E-11*
        grada*gradb*t22*t61*t295*t59;
    t356 = 1/pow(rhob,16.0);
    t357 = -0.41916*t159*t59+2.809896*t58*t157*t158-4.595107200000001*
        t156*t154*t155+2.664087040000001*t153*t151*t152-0.617723392*
        t149*t168*t201+0.049380352*t167*t309*t356;
    t358 = -0.0032936*t165*t59+5.337375999999999E-4*t58*t164*
        t158-3.158297599999999E-6*t156*t163*t155-3.215902720000001E-8*
        t153*t162*t152+2.566823936E-10*t149*t181*t201-4.43318272E-13*
        t167*t323*t356;
    t359 = 0.018162*t68*t59-8.34372E-4*t60*t67*t59+1.7708328E-5*
        t66*t65*t59-2.3263848E-7*t64*t63*t59+9.15017472E-10*t61*t138*
        t59-9.43344E-4*t58*t67*t158+4.542912E-5*t58*t60*t65*t158-1.016665344E-6*
        t58*t66*t63*t158+9.243393408E-9*t58*t64*t138*t158-2.745052416E-11*
        t58*t61*t295*t158;
    t360 = pow(grada,14.0);
    t361 = 1/pow(t23,7.0);
    t362 = 1/pow(rhoa,21.66666666666667);
    t363 = 1/pow(rhoa,19.0);
    t364 = 1/pow(rhoa,16.33333333333333);
    t365 = 1/pow(rhoa,13.66666666666667);
    t366 = 1/pow(rhoa,11.0);
    t367 = 1/pow(rhoa,8.333333333333334);
    t368 = 1/pow(rhoa,5.666666666666667);
    t369 = 9.563057777777779*t21*t32*t368-57.81965037037038*
        t29*t30*t367+114.1495855407408*t26*t27*t366-86.67635067259263*
        t20*t24*t365+29.7609332811852*t42*t43*t364-4.713474730666669*
        t208*t209*t363+0.280919335822222*t360*t361*t362;
    t370 = 1/pow(t18,3.0);
    t371 = pow(t54,3.0);
    t372 = 1/pow(t17,6.0);
    t373 = 1/pow(t17,5.0);
    t374 = 1/pow(rhoa,3.333333333333333);
    t375 = -5.948240277777777*t14*t15*t16/pow(rhoa,3.166666666666667)-
        3.1558125*t8*t9/pow(t10,7.0)-1.852355555555556*t4*t5*t6*t48-
        6.427244444444445*t1*t2*t3*t374;
    t376 = 1/pow(t36,7.0);
    t377 = 0.075142874074074*t21*t40*t368-0.010988772503704*
        t29*t39*t367+9.042903798518514E-5*t26*t38*t366+7.287608357925925E-7*
        t20*t37*t365-1.0615984643792592E-8*t42*t56*t364+4.03624281884444E-11*
        t208*t223*t363-5.04397678364444E-14*t360*t376*t362;
    t378 = 48.2454729664533*t231*t72*t232*t233;
    t379 = -6.0*t231*t72*t235*t107;
    t380 = -0.4274*t1*t2*t3*t103*t105*t106*t107;
    t381 = 3.0*t242*t72*t106*t107;
    t382 = -51.9472676981276*t81*t85*t244*t86*t245*t90*t246;
    t383 = 3.508934038473122*
        t81*t85*t244*t86*t249*t90*t111;
    t384 = 0.130122970593378*t81*t1*t2*t3*t103*t85*t109*t110*
        t90*t111;
    t385 = -1.754467019236561*t81*t85*t252*t86*t110*t90*t111;
    t386 = -
        0.017717724533333*t1*t2*t3*t240*t79;
    t387 = 0.002929848805881*t81*t1*t2*t3*t240*t85*t90*t93;
    t388 = 3.0*
        t284*t81*t83*t84*t90;
    t389 = -24.0*t125*t133*t81*t83*t90;
    t390 = 60.0*t273*t81*t83*t90*t99;
    t391 = 36.0*t275*t81*t84*t90*t99;
    t392 = pow(t105,3.0);
    t393 = 1/pow(t77,6.0);
    t394 = 1/pow(t78,3.0);
    t395 = 517.2501470570614*t392*t72*t393*t394;
    t396 = 1/pow(t77,5.0);
    t397 = -96.4909459329066*t392*t72*t396*t233;
    t398 = -3.43668585764369*t1*t2*t3*t103*t231*t232*t233;
    t399 = 48.2454729664533*
        t242*t105*t72*t232*t233;
    t400 = 6.0*t392*t72*t232*t107;
    t401 = 0.4274*t1*t2*t3*t103*t231*t235*t107;
    t402 = -6.0*t242*t105*t72*t235*t107;
    t403 = -0.2137*t1*t2*t3*t103*t242*t106*t107;
    t404 = 0.284933333333333*t1*t2*t3*t240*t105*t106*t107;
    t405 = 1/
        pow(t70,3.666666666666667);
    t406 = 1/pow(t74,7.0);
    t407 = 1/pow(t70,3.333333333333333);
    t408 = 1/pow(t70,3.166666666666667);
    t409 = -3.200040277777777*t14*t15*t16*t408-3.720474074074074*
        t1*t2*t3*t407-1.5358125*t8*t9*t406-1.460562962962963*t4*t5*
        t6*t405;
    t410 = 1.0*t409*t72*t106*t107;
    t411 = pow(t109,3.0);
    t412 = 1/pow(t91,6.0);
    t413 = 1/pow(t92,3.0);
    t414 = -1025.38970210078*t81*t85*t411*t86*t412*t90*t413;
    t415 = -
        51.9472676981276*t81*t85*t244*t86*t245*t122*t246;
    t416 = 1/pow(t91,5.0);
    t417 = 103.8945353962552*t81*t85*t411*t86*t416*t90*t246;
    t418 = 1.926377843805565*
        t81*t1*t2*t3*t103*t85*t244*t245*t90*t246;
    t419 = -51.9472676981276*t81*t85*t252*t109*t86*t245*t90*
        t246;
    t420 = -51.9472676981276*t81*t128*t244*t86*t245*t90*t246;
    t421 = 3.508934038473122*
        t81*t85*t244*t86*t249*t122*t111;
    t422 = 0.130122970593378*t81*t1*t2*t3*t103*t85*t109*t110*
        t122*t111;
    t423 = -1.754467019236561*t81*t85*t252*t86*t110*t122*
        t111;
    t424 = -3.508934038473122*t81*t85*t411*t86*t245*t90*t111;
    t425 = -
        0.130122970593378*t81*t1*t2*t3*t103*t85*t244*t249*t90*t111;
    t426 = 3.508934038473122*
        t81*t85*t252*t109*t86*t249*t90*t111;
    t427 = 3.508934038473122*t81*t128*t244*t86*t249*t90*t111;
    t428 = 0.065061485296689*
        t81*t1*t2*t3*t103*t85*t252*t110*t90*t111;
    t429 = 0.130122970593378*t81*t1*t2*t3*t103*t128*t109*
        t110*t90*t111;
    t430 = -0.086748647062252*t81*t1*t2*t3*t240*t85*t109*
        t110*t90*t111;
    t431 = -4.36336574074074*t14*t15*t16*t408-3.757288888888889*
        t1*t2*t3*t407-0.82524375*t8*t9*t406-1.471733333333333*t4*t5*
        t6*t405;
    t432 = -0.58482233974552*t81*t85*t431*t86*t110*t90*t111;
    t433 = -
        1.754467019236561*t81*t128*t252*t86*t110*t90*t111;
    t434 = 0.013780452414815*t1*t2*t3*t407*t79;
    t435 = pow(t117,3.0);
    t436 = 1/pow(t88,1.666666666666667);
    t437 = 6.0*t82*t84;
    t438 = -6.0*t258;
    t439 = t438+t437;
    t440 = pow(t120,3.0);
    t441 = 1/pow(t89,1.666666666666667);
    t442 = -6.0*t82*t84;
    t443 = 6.0*t258;
    t444 = t443+t442;
    t445 = 1.333333333333333*t121*t444-0.296296296296296*
        t440*t441+1.333333333333333*t118*t439-0.296296296296296*t435*
        t436+1.333333333333333*t120*t263*t266+1.333333333333333*t117*
        t257*t261;
    t446 = 0.019751789702565*t81*t85*t86*t445*t93;
    t447 = 0.059255369107696*t81*t128*t86*t267*t93;
    t448 = 0.002929848805881*t81*t1*t2*t3*t240*t85*t122*t93;
    t449 = 0.059255369107696*
        t81*t277*t86*t122*t93;
    t450 = 0.002929848805881*t81*t1*t2*t3*t240*t128*t90*t93;
    t451 = -
        0.002278771293463*t81*t1*t2*t3*t407*t85*t90*t93;
    t452 = 1/pow(t70,7.0);
    t453 = 120.0*t452*t83;
    t454 = 144.0*t125*t275;
    t455 = -24.0*t82*t84;
    t456 = t455+t454+t453-240.0*t127*t273;
    t457 = 0.019751789702565*t81*t456*t86*t90*t93;
    t458 = pow(t130,3.0);
    t459 = 1/pow(t96,6.0);
    t460 = 1/pow(t97,3.0);
    t461 = 1/pow(t96,5.0);
    t462 = -5.948240277777777*t14*t15*t16*t408-6.427244444444445*
        t1*t2*t3*t407-3.1558125*t8*t9*t406-1.852355555555556*t4*t5*
        t6*t405;
    t463 = 0.006624979614815*t1*t2*t3*t407*t98+6.0*t132*t280*
        t458*t95-6.0*t130*t132*t282*t283*t95-0.013780452414815*t1*
        t2*t3*t407*t79+2069.133687865597*t458*t95*t459*t460-517.2501470570614*
        t392*t72*t393*t394-192.9880990672242*t458*t95*t461*t281+96.4940495336121*
        t283*t130*t95*t280*t281-6.60919909938887*t1*t2*t3*t103*t279*
        t280*t281+96.4909459329066*t392*t72*t396*t233-48.2454729664533*
        t242*t105*t72*t232*t233+3.43668585764369*t1*t2*t3*t103*t231*
        t232*t233+0.41096*t1*t2*t3*t103*t279*t282*t132+t462*t95*t131*
        t132-0.20548*t1*t2*t3*t103*t283*t131*t132+0.273973333333333*
        t1*t2*t3*t240*t130*t131*t132+6.0*t242*t105*t72*t235*t107-0.4274*
        t1*t2*t3*t103*t231*t235*t107-6.0*t392*t72*t232*t107-1.0*t409*
        t72*t106*t107+0.2137*t1*t2*t3*t103*t242*t106*t107-0.284933333333333*
        t1*t2*t3*t240*t105*t106*t107;
    t464 = t81*t83*t84*t90*t463;
    t465 = 3.0*t122*t284*t81*t83*t84;
    t466 = -12.0*t125*t284*t81*t83*t90;
    t467 = -24.0*t122*t125*t133*t81*t83;
    t468 = 24.0*t122*t127*t133*t81*t84;
    t469 = 60.0*t133*t273*t81*t83*t90;
    t470 = 36.0*t133*t275*t81*t84*t90;
    t471 = t81*t83*t84*t445*t99;
    t472 = 60.0*t122*t273*t81*t83*t99;
    t473 = -96.0*t122*t125*t127*t81*t99;
    t474 = 36.0*t122*t275*t81*t84*t99;
    t475 = -120.0*t452*t81*t83*t90*t99;
    t476 = -144.0*t125*t275*t81*t90*t99;
    t477 = 24.0*t81*t82*t84*t90*t99;
    t478 = -1.0*t50*t375*t34*t55*rhoa+192.9880990672242*t217*
        t371*t34*t373*rhoa-2069.133687865597*t370*t371*t34*t372*rhoa+
        6.0*t50*t222*t54*t34*t220*rhoa-96.4940495336121*t217*t222*
        t54*t34*t219*rhoa-6.0*t50*t371*t34*t219*rhoa+t70*(240.0*t127*
        t273*t81*t90*t99+12.0*t127*t267*t81*t84*t99-12.0*t125*t267*
        t81*t83*t99-0.00219738660441*t81*t1*t2*t3*t103*t277*t90*t93-
        0.00219738660441*t81*t1*t2*t3*t103*t85*t267*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t128*t122*t93+12.0*t127*t284*t81*t84*t90-
        96.0*t125*t127*t133*t81*t90+3.0*t133*t267*t81*t83*t84+t477+
        t476+t475+t474+t473+t472+t471+t470+t469+t468+t467+t466+t465+
        t464+t457+t451+t450+t449+t448+t447+t446+t434+t433+t432+t430+
        t429+t428+t427+t426+t425+t424+t423+t422+t421+t420+t419+t418+
        t417+t415+t414+t410+t404+t403+t402+t401+t400+t399+t398+t397+
        t395-1.754467019236561*t81*t277*t109*t86*t110*t90*t111-1.754467019236561*
        t81*t85*t109*t86*t110*t267*t111-3.508934038473122*t81*t128*
        t109*t86*t110*t122*t111)-96.0*t125*t127*t81*t90*t99+3.0*t267*
        t81*t83*t84*t99+24.0*t122*t127*t81*t84*t99-24.0*t122*t125*
        t81*t83*t99+0.059255369107696*t81*t277*t86*t90*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t128*t90*t93+0.059255369107696*t81*t85*t86*
        t267*t93+0.118510738215391*t81*t128*t86*t122*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t85*t122*t93+24.0*t127*t133*t81*t84*t90+
        6.0*t122*t133*t81*t83*t84-3.0*t50*t222*t34*t55+0.136986666666667*
        t1*t2*t3*t50*t54*t55*t53+t391+t390+t389+t388+t387+t386+t385+
        t384+t383+t382+t381+t380+t379+t378+0.001892851318519*t1*t2*
        t3*t19*t221+6.0*t50*t218*t34*t220-96.4940495336121*t217*t218*
        t34*t219+0.20548*t1*t2*t3*t50*t222*t55*t12-0.41096*t1*t2*t3*
        t50*t218*t220*t12+6.60919909938887*t1*t2*t3*t217*t218*t219*
        t12-3.508934038473122*t81*t128*t109*t86*t110*t90*t111-3.508934038473122*
        t81*t85*t109*t86*t110*t122*t111;
    t479 = 1/pow(t62,7.0);
    t480 = -0.414362666666667*t21*t368*t68+0.019036042666667*
        t21*t368*t60*t67+0.018447616*t29*t367*t67-4.04012224E-4*t21*
        t368*t66*t65-8.8839168E-4*t29*t367*t60*t65-1.3451673599999998E-4*
        t26*t366*t65+5.30760384E-6*t21*t368*t64*t63+1.9881455616E-5*
        t29*t367*t66*t63+6.758055935999999E-6*t26*t366*t60*t63-2.0875954176E-8*
        t21*t368*t61*t138-1.8075969331199996E-7*t29*t367*t64*t138-
        1.2356775936E-7*t26*t366*t66*t138+5.3681025024E-10*t29*t367*
        t61*t295+9.1757961216E-10*t26*t366*t64*t295-2.34244472832E-12*
        t26*t366*t61*t479;
    t481 = 0.03950357940513*t81*t85*t86*t297*t93;
    t482 = 0.03950357940513*t81*t128*t86*t185*t93;
    t483 = 0.03950357940513*t81*t187*t86*t122*t93;
    t484 = 0.03950357940513*t81*t298*t86*t90*t93;
    t485 = 2.0*t297*t81*t83*t84*t99;
    t486 = -1.169644679491041*t81*t85*t109*t86*t110*t297*
        t111;
    t487 = -1.169644679491041*t81*t128*t109*t86*t110*t185*
        t111;
    t488 = -1.169644679491041*t81*t187*t109*t86*t110*t122*
        t111;
    t489 = -1.169644679491041*t81*t298*t109*t86*t110*t90*
        t111;
    t490 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t297*t93;
    t491 = t437-
        2.0*t258;
    t492 = t442+2.0*t258;
    t493 = 1.777777777777778*t120*t258*t263*t82-1.777777777777778*
        t117*t257*t258*t82+1.333333333333333*t121*t492+1.333333333333333*
        t118*t491-0.296296296296296*t184*t262*t441-0.296296296296296*
        t183*t256*t436+0.444444444444444*t184*t263*t266+0.444444444444444*
        t183*t257*t261;
    t494 = -0.00146492440294*t81*t1*t2*t3*t103*t128*t185*
        t93;
    t495 = -0.00146492440294*t81*t1*t2*t3*t103*t187*t122*
        t93;
    t496 = -0.00146492440294*t81*t1*t2*t3*t103*t298*t90*t93;
    t497 = -
        48.0*t125*t275;
    t498 = 24.0*t82*t84;
    t499 = t498+t497+t453-80.0*t127*t273;
    t500 = 2.0*t133*t297*t81*t83*t84;
    t501 = -12.0*t133*t275*t81*t84*t90;
    t502 = -8.0*t125*t297*t81*t83*t99;
    t503 = -24.0*t122*t275*t81*t84*t99;
    t504 = 48.0*t125*t275*t81*t90*t99;
    t505 = -24.0*t81*t82*t84*t90*t99;
    t506 = t70*(80.0*t127*t273*t81*t90*t99+8.0*t127*t297*
        t81*t84*t99+12.0*t185*t275*t81*t84*t99-4.0*t127*t267*t81*t84*
        t99+20.0*t185*t273*t81*t83*t99+40.0*t122*t273*t81*t83*t99-
        4.0*t125*t267*t81*t83*t99-32.0*t125*t127*t185*t81*t99+t81*
        t83*t84*t493*t99+0.019751789702565*t81*t499*t86*t90*t93-7.324622014701263E-4*
        t81*t1*t2*t3*t103*t277*t90*t93+9.76616268626835E-4*t81*t1*
        t2*t3*t240*t187*t90*t93+0.001953232537254*t81*t1*t2*t3*t240*
        t128*t90*t93+0.019751789702565*t81*t85*t86*t493*t93+0.03950357940513*
        t81*t128*t86*t297*t93+0.019751789702565*t81*t187*t86*t267*
        t93-7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t267*t93+0.019751789702565*
        t81*t277*t86*t185*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*
        t85*t185*t93+0.03950357940513*t81*t298*t86*t122*t93+0.001953232537254*
        t81*t1*t2*t3*t240*t85*t122*t93-0.00146492440294*t81*t1*t2*
        t3*t103*t128*t122*t93+4.0*t127*t284*t81*t84*t90-32.0*t125*
        t127*t133*t81*t90+2.0*t122*t284*t81*t83*t84+8.0*t127*t133*
        t185*t81*t84-8.0*t125*t133*t185*t81*t83-16.0*t122*t125*t133*
        t81*t83+t505+t504+t503+t502+t501+t500+t496+t495+t494+t490+
        t489+t488+t487+t486+t475+t469+t466+t464+t451+t434+t432+t430+
        t428+t426+t425+t424+t419+t418+t417+t414+t410+t404+t403+t402+
        t401+t400+t399+t398+t397+t395+t81*t83*t84*t185*t284-17.31575589937587*
        t81*t187*t244*t86*t245*t90*t246-34.63151179875173*t81*t128*
        t244*t86*t245*t90*t246-17.31575589937587*t81*t85*t244*t86*
        t245*t185*t246-34.63151179875173*t81*t85*t244*t86*t245*t122*
        t246+t81*t83*t84*t267*t133+1.169644679491041*t81*t187*t244*
        t86*t249*t90*t111+2.339289358982082*t81*t128*t244*t86*t249*
        t90*t111-0.58482233974552*t81*t187*t252*t86*t110*t90*t111-
        1.169644679491041*t81*t128*t252*t86*t110*t90*t111-0.58482233974552*
        t81*t277*t109*t86*t110*t90*t111+0.043374323531126*t81*t1*t2*
        t3*t103*t187*t109*t110*t90*t111+0.086748647062252*t81*t1*t2*
        t3*t103*t128*t109*t110*t90*t111-0.58482233974552*t81*t85*t109*
        t86*t110*t267*t111+1.169644679491041*t81*t85*t244*t86*t249*
        t185*t111-0.58482233974552*t81*t85*t252*t86*t110*t185*t111+
        0.043374323531126*t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+
        2.339289358982082*t81*t85*t244*t86*t249*t122*t111-1.169644679491041*
        t81*t85*t252*t86*t110*t122*t111-1.169644679491041*t81*t128*
        t109*t86*t110*t122*t111+0.086748647062252*t81*t1*t2*t3*t103*
        t85*t109*t110*t122*t111)+8.0*t127*t185*t81*t84*t99-16.0*t122*
        t125*t81*t83*t99-0.002929848805881*t81*t1*t2*t3*t103*t128*
        t90*t93-0.002929848805881*t81*t1*t2*t3*t103*t85*t122*t93+4.0*
        t122*t133*t81*t83*t84+t485+t484+t483+t482+t481+t390+t389+t388+
        t387+t386+t385+t384+t383+t382+t381+t380+t379+t378+t341+t338+
        t335+t333+t326+t325+t299+t292+t289+t288+t278+t270+t268-2.339289358982082*
        t81*t128*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
        t109*t86*t110*t122*t111;
    t507 = 0.006149205333333*t21*t58*t215*t67*t173-2.9613056E-4*
        t21*t58*t215*t60*t65*t173-1.3451673599999998E-4*t29*t58*t214*
        t65*t173+6.627151872E-6*t21*t58*t215*t66*t63*t173+6.758055935999999E-6*
        t29*t58*t214*t60*t63*t173-6.0253231104E-8*t21*t58*t215*t64*
        t138*t173-1.2356775936E-7*t29*t58*t214*t66*t138*t173+1.7893675008E-10*
        t21*t58*t215*t61*t295*t173+9.1757961216E-10*t29*t58*t214*t64*
        t295*t173-2.34244472832E-12*t29*t58*t214*t61*t479*t173;
    t508 = pow(grada,13.0);
    t509 = 1/pow(rhoa,20.66666666666667);
    t510 = -4.098453333333334*grada*t32*t215+31.76154311111111*
        t196*t30*t214-69.72742542222224*t195*t27*t213+56.74945479111113*
        t194*t24*t212-20.5582167608889*t192*t43*t211+3.403425109333335*
        t302*t209*t210-0.210689501866667*t508*t361*t509;
    t511 = -0.032204088888889*grada*t40*t215+0.006029007644444*
        t196*t39*t214-5.897757582222221E-5*t195*t38*t213-4.379267527111111E-7*
        t194*t37*t212+7.225781634844444E-9*t192*t56*t211-2.908963908266666E-11*
        t302*t223*t210+3.78298258773333E-14*t508*t376*t509;
    t512 = 0.177584*grada*t215*t68-0.008158304*grada*t215*
        t60*t67-0.011320128*t196*t214*t67+1.73148096E-4*grada*t215*
        t66*t65+5.4514944E-4*t196*t214*t60*t65+1.0088755199999999E-4*
        t195*t213*t65-2.27468736E-6*grada*t215*t64*t63-1.2199984128E-5*
        t196*t214*t66*t63-5.068541952E-6*t195*t213*t60*t63+8.946837503999999E-9*
        grada*t215*t61*t138+1.10920720896E-7*t196*t214*t64*t138+9.267581951999999E-8*
        t195*t213*t66*t138-3.2940628992E-10*t196*t214*t61*t295-6.8818470912E-10*
        t195*t213*t64*t295+1.75683354624E-12*t195*t213*t61*t479;
    t513 = -
        0.004611904*t21*gradb*t215*t67*t59+2.2209792E-4*t21*gradb*
        t215*t60*t65*t59+1.0088755199999999E-4*t29*gradb*t214*t65*
        t59-4.970363904E-6*t21*gradb*t215*t66*t63*t59-5.068541952E-6*
        t29*gradb*t214*t60*t63*t59+4.5189923328E-8*t21*gradb*t215*
        t64*t138*t59+9.267581951999999E-8*t29*gradb*t214*t66*t138*
        t59-1.3420256256E-10*t21*gradb*t215*t61*t295*t59-6.8818470912E-10*
        t29*gradb*t214*t64*t295*t59+1.75683354624E-12*t29*gradb*t214*
        t61*t479*t59;
    t514 = -8.0*t121*t82*t84+8.0*t118*t82*t84+1.777777777777778*
        t184*t258*t263*t82-1.777777777777778*t183*t257*t258*t82-0.296296296296296*
        t120*t329*t441-0.296296296296296*t117*t327*t436+0.444444444444444*
        t120*t263*t330+0.444444444444444*t117*t257*t328-2.666666666666667*
        t121*t258+2.666666666666667*t118*t258;
    t515 = t497+t455+t453+80.0*t127*t273;
    t516 = -24.0*t185*t275*t81*t84*t99;
    t517 = t70*(-80.0*t127*t273*t81*t90*t99+4.0*t127*t331*
        t81*t84*t99-8.0*t127*t297*t81*t84*t99+12.0*t122*t275*t81*t84*
        t99-4.0*t125*t331*t81*t83*t99+40.0*t185*t273*t81*t83*t99+20.0*
        t122*t273*t81*t83*t99+32.0*t122*t125*t127*t81*t99+t81*t83*
        t84*t514*t99+0.019751789702565*t81*t515*t86*t90*t93-7.324622014701263E-4*
        t81*t1*t2*t3*t103*t336*t90*t93+0.001953232537254*t81*t1*t2*
        t3*t240*t187*t90*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*
        t128*t90*t93+0.019751789702565*t81*t85*t86*t514*t93+0.019751789702565*
        t81*t128*t86*t331*t93-7.324622014701263E-4*t81*t1*t2*t3*t103*
        t85*t331*t93+0.03950357940513*t81*t187*t86*t297*t93+0.03950357940513*
        t81*t298*t86*t185*t93+0.001953232537254*t81*t1*t2*t3*t240*
        t85*t185*t93-0.00146492440294*t81*t1*t2*t3*t103*t187*t185*
        t93+0.019751789702565*t81*t336*t86*t122*t93+9.76616268626835E-4*
        t81*t1*t2*t3*t240*t85*t122*t93-4.0*t127*t284*t81*t84*t90+32.0*
        t125*t127*t133*t81*t90+2.0*t185*t284*t81*t83*t84-8.0*t122*
        t127*t133*t81*t84-16.0*t125*t133*t185*t81*t83-8.0*t122*t125*
        t133*t81*t83+t516+t504+t502+t501+t500+t496+t495+t494+t490+
        t489+t488+t487+t486+t477+t475+t469+t466+t464+t451+t434+t432+
        t430+t428+t426+t425+t424+t419+t418+t417+t414+t410+t404+t403+
        t402+t401+t400+t399+t398+t397+t395+t81*t83*t84*t122*t284-34.63151179875173*
        t81*t187*t244*t86*t245*t90*t246-17.31575589937587*t81*t128*
        t244*t86*t245*t90*t246-34.63151179875173*t81*t85*t244*t86*
        t245*t185*t246-17.31575589937587*t81*t85*t244*t86*t245*t122*
        t246+t81*t83*t84*t331*t133+2.339289358982082*t81*t187*t244*
        t86*t249*t90*t111+1.169644679491041*t81*t128*t244*t86*t249*
        t90*t111-1.169644679491041*t81*t187*t252*t86*t110*t90*t111-
        0.58482233974552*t81*t128*t252*t86*t110*t90*t111-0.58482233974552*
        t81*t336*t109*t86*t110*t90*t111+0.086748647062252*t81*t1*t2*
        t3*t103*t187*t109*t110*t90*t111+0.043374323531126*t81*t1*t2*
        t3*t103*t128*t109*t110*t90*t111-0.58482233974552*t81*t85*t109*
        t86*t110*t331*t111+2.339289358982082*t81*t85*t244*t86*t249*
        t185*t111-1.169644679491041*t81*t85*t252*t86*t110*t185*t111-
        1.169644679491041*t81*t187*t109*t86*t110*t185*t111+0.086748647062252*
        t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+1.169644679491041*
        t81*t85*t244*t86*t249*t122*t111-0.58482233974552*t81*t85*t252*
        t86*t110*t122*t111+0.043374323531126*t81*t1*t2*t3*t103*t85*
        t109*t110*t122*t111)-8.0*t122*t127*t81*t84*t99-16.0*t125*t185*
        t81*t83*t99-0.002929848805881*t81*t1*t2*t3*t103*t187*t90*t93-
        0.002929848805881*t81*t1*t2*t3*t103*t85*t185*t93+4.0*t133*
        t185*t81*t83*t84+t485+t484+t483+t482+t481+t390+t389+t388+t387+
        t386+t385+t384+t383+t382+t381+t380+t379+t378+t342+t340+t339+
        t337+t334+t332+t299+t290+t286+t271+t269+t254+t248-2.339289358982082*
        t81*t187*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
        t109*t86*t110*t185*t111;
    t518 = 0.006149205333333*t21*t58*t48*t67*t315-2.9613056E-4*
        t21*t58*t48*t60*t65*t315+6.627151872E-6*t21*t58*t48*t66*t63*
        t315-6.025323110399998E-8*t21*t58*t48*t64*t138*t315+1.7893675008E-10*
        t21*t58*t48*t61*t295*t315-1.3451673599999998E-4*t21*t156*t48*
        t65*t314+6.758055935999999E-6*t21*t156*t48*t60*t63*t314-1.2356775936E-7*
        t21*t156*t48*t66*t138*t314+9.1757961216E-10*t21*t156*t48*t64*
        t295*t314-2.34244472832E-12*t21*t156*t48*t61*t479*t314;
    t519 = -0.003354112*grada*t58*t48*t67*t173+1.6152575999999998E-4*
        grada*t58*t48*t60*t65*t173+1.0088755199999999E-4*t196*t58*
        t47*t65*t173-3.614810112E-6*grada*t58*t48*t66*t63*t173-5.068541952E-6*
        t196*t58*t47*t60*t63*t173+3.2865398784E-8*grada*t58*t48*t64*
        t138*t173+9.267581951999999E-8*t196*t58*t47*t66*t138*t173-
        9.760186368E-11*grada*t58*t48*t61*t295*t173-6.8818470912E-10*
        t196*t58*t47*t64*t295*t173+1.75683354624E-12*t196*t58*t47*
        t61*t479*t173;
    t520 = -0.003354112*t21*gradb*t48*t67*t173+1.6152575999999998E-4*
        t21*gradb*t48*t60*t65*t173-3.614810112E-6*t21*gradb*t48*t66*
        t63*t173+3.2865398784E-8*t21*gradb*t48*t64*t138*t173-9.760186368E-11*
        t21*gradb*t48*t61*t295*t173+1.0088755199999999E-4*t21*t204*
        t48*t65*t172-5.068541952E-6*t21*t204*t48*t60*t63*t172+9.267581951999999E-8*
        t21*t204*t48*t66*t138*t172-6.8818470912E-10*t21*t204*t48*t64*
        t295*t172+1.75683354624E-12*t21*t204*t48*t61*t479*t172;
    t521 = 1/pow(rhoa,19.66666666666667);
    t522 = 1.11776*t32*t48-15.209664*t21*t30*t47+39.75808*
        t29*t27*t46-35.76909994666669*t26*t24*t45+13.91969757866667*
        t20*t43*t44-2.437348010666668*t42*t209*t303+0.1580171264*t208*
        t361*t521;
    t523 = 0.008782933333333*t40*t48-0.002881732266667*t21*
        t39*t47+3.665278293333333E-5*t29*t38*t46+2.419641002666668E-7*
        t26*t37*t45-4.794550408533334E-9*t20*t56*t44+2.078282001066667E-11*
        t42*t223*t303-2.8372369408E-14*t208*t376*t521;
    t524 = -0.048432*t48*t68+0.002224992*t48*t60*t67+0.00628896*
        t21*t47*t67-4.7222208E-5*t48*t66*t65-3.028608E-4*t21*t47*t60*
        t65-7.5665664E-5*t29*t46*t65+6.2036928E-7*t48*t64*t63+6.77776896E-6*
        t21*t47*t66*t63+3.801406464E-6*t29*t46*t60*t63-2.440046592E-9*
        t48*t61*t138-6.162262272E-8*t21*t47*t64*t138-6.950686463999999E-8*
        t29*t46*t66*t138+1.830034944E-10*t21*t47*t61*t295+5.1613853184E-10*
        t29*t46*t64*t295-1.31762515968E-12*t29*t46*t61*t479;
    t525 = 0.002515584*grada*gradb*t48*t67*t59-1.2114432E-4*
        grada*gradb*t48*t60*t65*t59-7.5665664E-5*t196*gradb*t47*t65*
        t59+2.711107584E-6*grada*gradb*t48*t66*t63*t59+3.801406464E-6*
        t196*gradb*t47*t60*t63*t59-2.4649049087999997E-8*grada*gradb*
        t48*t64*t138*t59-6.950686463999999E-8*t196*gradb*t47*t66*t138*
        t59+7.320139776E-11*grada*gradb*t48*t61*t295*t59+5.1613853184E-10*
        t196*gradb*t47*t64*t295*t59-1.31762515968E-12*t196*gradb*t47*
        t61*t479*t59;
    t526 = 0.001257792*t21*t48*t67*t59-6.057216E-5*t21*t48*
        t60*t65*t59+1.3555537919999999E-6*t21*t48*t66*t63*t59-1.2324524543999998E-8*
        t21*t48*t64*t138*t59+3.660069888E-11*t21*t48*t61*t295*t59-
        7.5665664E-5*t21*t58*t48*t65*t158+3.801406464E-6*t21*t58*t48*
        t60*t63*t158-6.950686463999999E-8*t21*t58*t48*t66*t138*t158+
        5.1613853184E-10*t21*t58*t48*t64*t295*t158-1.31762515968E-12*
        t21*t58*t48*t61*t479*t158;
    t527 = pow(gradb,14.0);
    t528 = 1/pow(t150,7.0);
    t529 = 1/pow(rhob,21.66666666666667);
    t530 = 1/pow(rhob,19.0);
    t531 = 1/pow(rhob,16.33333333333333);
    t532 = 1/pow(rhob,13.66666666666667);
    t533 = 1/pow(rhob,11.0);
    t534 = 1/pow(rhob,8.333333333333334);
    t535 = 1/pow(rhob,5.666666666666667);
    t536 = 9.563057777777779*t58*t159*t535-57.81965037037038*
        t156*t157*t534+114.1495855407408*t153*t154*t533-86.67635067259263*
        t149*t151*t532+29.7609332811852*t167*t168*t531-4.713474730666669*
        t308*t309*t530+0.280919335822222*t527*t528*t529;
    t537 = 1/pow(t145,3.0);
    t538 = pow(t179,3.0);
    t539 = 1/pow(t144,6.0);
    t540 = 1/pow(t144,5.0);
    t541 = 1/pow(rhob,3.333333333333333);
    t542 = -5.948240277777777*t14*t15*t16/pow(rhob,3.166666666666667)-
        3.1558125*t8*t9/pow(t141,7.0)-6.427244444444445*t1*t2*t3*t541-
        1.852355555555556*t4*t5*t6*t173;
    t543 = 1/pow(t161,7.0);
    t544 = 0.075142874074074*t58*t165*t535-0.010988772503704*
        t156*t164*t534+9.042903798518514E-5*t153*t163*t533+7.287608357925925E-7*
        t149*t162*t532-1.0615984643792592E-8*t167*t181*t531+4.03624281884444E-11*
        t308*t323*t530-5.04397678364444E-14*t527*t543*t529;
    t545 = -51.9472676981276*t81*t85*t244*t86*t245*t185*t246;
    t546 = -
        51.9472676981276*t81*t187*t244*t86*t245*t90*t246;
    t547 = 3.508934038473122*t81*t85*t244*t86*t249*t185*t111;
    t548 = 0.130122970593378*
        t81*t1*t2*t3*t103*t85*t109*t110*t185*t111;
    t549 = -1.754467019236561*t81*t85*t252*t86*t110*t185*
        t111;
    t550 = 3.508934038473122*t81*t187*t244*t86*t249*t90*t111;
    t551 = 0.130122970593378*
        t81*t1*t2*t3*t103*t187*t109*t110*t90*t111;
    t552 = -1.754467019236561*t81*t187*t252*t86*t110*t90*
        t111;
    t553 = pow(t183,3.0);
    t554 = t443+t437;
    t555 = pow(t184,3.0);
    t556 = t438+t442;
    t557 = 1.333333333333333*t121*t556-0.296296296296296*
        t441*t555+1.333333333333333*t118*t554-0.296296296296296*t436*
        t553+1.333333333333333*t184*t263*t330+1.333333333333333*t183*
        t257*t328;
    t558 = 0.019751789702565*t81*t85*t86*t557*t93;
    t559 = 0.059255369107696*t81*t187*t86*t331*t93;
    t560 = 0.002929848805881*t81*t1*t2*t3*t240*t85*t185*t93;
    t561 = 0.059255369107696*
        t81*t336*t86*t185*t93;
    t562 = 0.002929848805881*t81*t1*t2*t3*t240*t187*t90*t93;
    t563 = t498+
        t454+t453+240.0*t127*t273;
    t564 = 0.019751789702565*t81*t563*t86*t90*t93;
    t565 = 3.0*t185*t284*t81*t83*t84;
    t566 = -24.0*t125*t133*t185*t81*t83;
    t567 = -24.0*t127*t133*t185*t81*t84;
    t568 = t81*t83*t84*t557*t99;
    t569 = 60.0*t185*t273*t81*t83*t99;
    t570 = 96.0*t125*t127*t185*t81*t99;
    t571 = 36.0*t185*t275*t81*t84*t99;
    t572 = 192.9880990672242*t317*t538*t147*t540*rhob-2069.133687865597*
        t537*t538*t147*t539*rhob+6.0*t175*t322*t179*t147*t320*rhob-
        6.0*t175*t538*t147*t319*rhob-96.4940495336121*t317*t322*t179*
        t147*t319*rhob-1.0*t175*t542*t147*t180*rhob+t70*(-240.0*t127*
        t273*t81*t90*t99-12.0*t127*t331*t81*t84*t99-12.0*t125*t331*
        t81*t83*t99-0.00219738660441*t81*t1*t2*t3*t103*t336*t90*t93-
        0.00219738660441*t81*t1*t2*t3*t103*t85*t331*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t187*t185*t93-12.0*t127*t284*t81*t84*t90+
        96.0*t125*t127*t133*t81*t90+3.0*t133*t331*t81*t83*t84+t571+
        t570+t569+t568+t567+t566+t565+t564+t562+t561+t560+t559+t558+
        t552+t551+t550+t549+t548+t547+t546+t545+t505+t476+t475+t470+
        t469+t466+t464+t451+t434+t432+t430+t428+t426+t425+t424+t419+
        t418+t417+t414+t410+t404+t403+t402+t401+t400+t399+t398+t397+
        t395-1.754467019236561*t81*t336*t109*t86*t110*t90*t111-1.754467019236561*
        t81*t85*t109*t86*t110*t331*t111-3.508934038473122*t81*t187*
        t109*t86*t110*t185*t111)+96.0*t125*t127*t81*t90*t99+3.0*t331*
        t81*t83*t84*t99-24.0*t127*t185*t81*t84*t99-24.0*t125*t185*
        t81*t83*t99+0.059255369107696*t81*t336*t86*t90*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t187*t90*t93+0.059255369107696*t81*t85*t86*
        t331*t93+0.118510738215391*t81*t187*t86*t185*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t85*t185*t93-24.0*t127*t133*t81*t84*t90+
        6.0*t133*t185*t81*t83*t84+t391+t390+t389+t388+t387+t386+t385+
        t384+t383+t382+t381+t380+t379+t378+0.001892851318519*t1*t2*
        t3*t146*t321+6.0*t175*t318*t147*t320-96.4940495336121*t317*
        t318*t147*t319-3.0*t175*t322*t147*t180+0.136986666666667*t1*
        t2*t3*t175*t179*t180*t178-0.41096*t1*t2*t3*t175*t318*t320*
        t143+6.60919909938887*t1*t2*t3*t317*t318*t319*t143+0.20548*
        t1*t2*t3*t175*t322*t180*t143-3.508934038473122*t81*t187*t109*
        t86*t110*t90*t111-3.508934038473122*t81*t85*t109*t86*t110*
        t185*t111;
    t573 = -0.414362666666667*t58*t68*t535+0.019036042666667*
        t58*t60*t67*t535-4.04012224E-4*t58*t66*t65*t535+5.30760384E-6*
        t58*t64*t63*t535-2.0875954176E-8*t58*t61*t138*t535+0.018447616*
        t156*t67*t534-8.8839168E-4*t156*t60*t65*t534+1.9881455616E-5*
        t156*t66*t63*t534-1.8075969331199996E-7*t156*t64*t138*t534+
        5.3681025024E-10*t156*t61*t295*t534-1.3451673599999998E-4*
        t153*t65*t533+6.758055935999999E-6*t153*t60*t63*t533-1.2356775936E-7*
        t153*t66*t138*t533+9.1757961216E-10*t153*t64*t295*t533-2.34244472832E-12*
        t153*t61*t479*t533;
    t574 = -0.004611904*grada*t58*t22*t67*t315+2.2209792E-4*
        grada*t58*t22*t60*t65*t315-4.970363904E-6*grada*t58*t22*t66*
        t63*t315+4.5189923328E-8*grada*t58*t22*t64*t138*t315-1.3420256256E-10*
        grada*t58*t22*t61*t295*t315+1.0088755199999999E-4*grada*t156*
        t22*t65*t314-5.068541952E-6*grada*t156*t22*t60*t63*t314+9.267581951999999E-8*
        grada*t156*t22*t66*t138*t314-6.8818470912E-10*grada*t156*t22*
        t64*t295*t314+1.75683354624E-12*grada*t156*t22*t61*t479*t314;
    t575 = pow(gradb,
        13.0);
    t576 = 1/pow(rhob,20.66666666666667);
    t577 = -4.098453333333334*gradb*t159*t315+31.76154311111111*
        t204*t157*t314-69.72742542222224*t203*t154*t313+56.74945479111113*
        t202*t151*t312-20.5582167608889*t200*t168*t311+3.403425109333335*
        t346*t309*t310-0.210689501866667*t575*t528*t576;
    t578 = -0.032204088888889*gradb*t165*t315+0.006029007644444*
        t204*t164*t314-5.897757582222221E-5*t203*t163*t313-4.379267527111111E-7*
        t202*t162*t312+7.225781634844444E-9*t200*t181*t311-2.908963908266666E-11*
        t346*t323*t310+3.78298258773333E-14*t575*t543*t576;
    t579 = 0.177584*gradb*t68*t315-0.008158304*gradb*t60*
        t67*t315+1.73148096E-4*gradb*t66*t65*t315-2.27468736E-6*gradb*
        t64*t63*t315+8.946837503999999E-9*gradb*t61*t138*t315-0.011320128*
        t204*t67*t314+5.4514944E-4*t204*t60*t65*t314-1.2199984128E-5*
        t204*t66*t63*t314+1.10920720896E-7*t204*t64*t138*t314-3.2940628992E-10*
        t204*t61*t295*t314+1.0088755199999999E-4*t203*t65*t313-5.068541952E-6*
        t203*t60*t63*t313+9.267581951999999E-8*t203*t66*t138*t313-
        6.8818470912E-10*t203*t64*t295*t313+1.75683354624E-12*t203*
        t61*t479*t313;
    t580 = 0.001257792*t58*t22*t67*t173-6.057216E-5*t58*t22*
        t60*t65*t173-7.5665664E-5*t21*t58*t31*t65*t173+1.3555537919999999E-6*
        t58*t22*t66*t63*t173+3.801406464E-6*t21*t58*t31*t60*t63*t173-
        1.2324524543999998E-8*t58*t22*t64*t138*t173-6.950686463999999E-8*
        t21*t58*t31*t66*t138*t173+3.660069888E-11*t58*t22*t61*t295*
        t173+5.1613853184E-10*t21*t58*t31*t64*t295*t173-1.31762515968E-12*
        t21*t58*t31*t61*t479*t173;
    t581 = 0.002515584*grada*gradb*t22*t67*t173-1.2114432E-4*
        grada*gradb*t22*t60*t65*t173+2.711107584E-6*grada*gradb*t22*
        t66*t63*t173-2.4649049087999997E-8*grada*gradb*t22*t64*t138*
        t173+7.320139776E-11*grada*gradb*t22*t61*t295*t173-7.5665664E-5*
        grada*t204*t22*t65*t172+3.801406464E-6*grada*t204*t22*t60*
        t63*t172-6.950686463999999E-8*grada*t204*t22*t66*t138*t172+
        5.1613853184E-10*grada*t204*t22*t64*t295*t172-1.31762515968E-12*
        grada*t204*t22*t61*t479*t172;
    t582 = 1/pow(rhob,19.66666666666667);
    t583 = 1.11776*t159*t173-15.209664*t58*t157*t172+39.75808*
        t156*t154*t171-35.76909994666669*t153*t151*t170+13.91969757866667*
        t149*t168*t169-2.437348010666668*t167*t309*t347+0.1580171264*
        t308*t528*t582;
    t584 = 0.008782933333333*t165*t173-0.002881732266667*
        t58*t164*t172+3.665278293333333E-5*t156*t163*t171+2.419641002666668E-7*
        t153*t162*t170-4.794550408533334E-9*t149*t181*t169+2.078282001066667E-11*
        t167*t323*t347-2.8372369408E-14*t308*t543*t582;
    t585 = -0.048432*t68*t173+0.002224992*t60*t67*t173-4.7222208E-5*
        t66*t65*t173+6.2036928E-7*t64*t63*t173-2.440046592E-9*t61*
        t138*t173+0.00628896*t58*t67*t172-3.028608E-4*t58*t60*t65*
        t172+6.77776896E-6*t58*t66*t63*t172-6.162262272E-8*t58*t64*
        t138*t172+1.830034944E-10*t58*t61*t295*t172-7.5665664E-5*t156*
        t65*t171+3.801406464E-6*t156*t60*t63*t171-6.950686463999999E-8*
        t156*t66*t138*t171+5.1613853184E-10*t156*t64*t295*t171-1.31762515968E-12*
        t156*t61*t479*t171;
    t586 = 1/pow(rhoa,18.66666666666667);
    t587 = 5.787456*grada*t30*t31-20.6283456*t196*t27*t28+
        21.49865088000001*t195*t24*t25-9.204326400000003*t194*t43*
        t193+1.729250304000001*t192*t209*t351-0.1185128448*t302*t361*
        t586;
    t588 = 0.001093824*grada*t39*t31-2.1172991999999997E-5*
        t196*t38*t28-1.1715502080000007E-7*t195*t37*t25+3.0825480192E-9*
        t194*t56*t193-1.4700478464E-11*t192*t223*t351+2.1279277056E-14*
        t302*t376*t586;
    t589 = -0.002830032*grada*t31*t67+1.3628736E-4*grada*
        t31*t60*t65+5.674924800000001E-5*t196*t28*t65-3.049996032E-6*
        grada*t31*t66*t63-2.851054848E-6*t196*t28*t60*t63+2.7730180224E-8*
        grada*t31*t64*t138+5.213014848E-8*t196*t28*t66*t138-8.235157248E-11*
        grada*t31*t61*t295-3.8710389888E-10*t196*t28*t64*t295+9.8821886976E-13*
        t196*t28*t61*t479;
    t590 = -9.43344E-4*gradb*t22*t67*t59+4.542912E-5*gradb*
        t22*t60*t65*t59+5.674924800000001E-5*t21*gradb*t31*t65*t59-
        1.016665344E-6*gradb*t22*t66*t63*t59-2.851054848E-6*t21*gradb*
        t31*t60*t63*t59+9.243393408E-9*gradb*t22*t64*t138*t59+5.213014848E-8*
        t21*gradb*t31*t66*t138*t59-2.745052416E-11*gradb*t22*t61*t295*
        t59-3.8710389888E-10*t21*gradb*t31*t64*t295*t59+9.8821886976E-13*
        t21*gradb*t31*t61*t479*t59;
    t591 = -9.43344E-4*grada*t22*t67*t59+4.542912E-5*grada*
        t22*t60*t65*t59-1.016665344E-6*grada*t22*t66*t63*t59+9.243393408E-9*
        grada*t22*t64*t138*t59-2.745052416E-11*grada*t22*t61*t295*
        t59+5.674924800000001E-5*grada*t58*t22*t65*t158-2.851054848E-6*
        grada*t58*t22*t60*t63*t158+5.213014848E-8*grada*t58*t22*t66*
        t138*t158-3.8710389888E-10*grada*t58*t22*t64*t295*t158+9.8821886976E-13*
        grada*t58*t22*t61*t479*t158;
    t592 = 1/pow(rhob,18.66666666666667);
    t593 = 5.787456*gradb*t157*t158-20.6283456*t204*t154*
        t155+21.49865088000001*t203*t151*t152-9.204326400000003*t202*
        t168*t201+1.729250304000001*t200*t309*t356-0.1185128448*t346*
        t528*t592;
    t594 = 0.001093824*gradb*t164*t158-2.1172991999999997E-5*
        t204*t163*t155-1.1715502080000007E-7*t203*t162*t152+3.0825480192E-9*
        t202*t181*t201-1.4700478464E-11*t200*t323*t356+2.1279277056E-14*
        t346*t543*t592;
    t595 = -0.002830032*gradb*t67*t158+1.3628736E-4*gradb*
        t60*t65*t158-3.049996032E-6*gradb*t66*t63*t158+2.7730180224E-8*
        gradb*t64*t138*t158-8.235157248E-11*gradb*t61*t295*t158+5.674924800000001E-5*
        t204*t65*t155-2.851054848E-6*t204*t60*t63*t155+5.213014848E-8*
        t204*t66*t138*t155-3.8710389888E-10*t204*t64*t295*t155+9.8821886976E-13*
        t204*t61*t479*t155;
    t596 = pow(grada,16.0);
    t597 = 1/pow(t23,8.0);
    t598 = 1/pow(rhoa,25.33333333333333);
    t599 = 1/pow(rhoa,22.66666666666667);
    t600 = 1/pow(rhoa,20.0);
    t601 = 1/pow(rhoa,17.33333333333333);
    t602 = 1/pow(rhoa,14.66666666666667);
    t603 = 1/pow(rhoa,12.0);
    t604 = 1/pow(rhoa,9.333333333333334);
    t605 = 1/pow(rhoa,6.666666666666667);
    t606 = 1/pow(t18,4.0);
    t607 = pow(t54,4.0);
    t608 = 1/pow(t17,8.0);
    t609 = 1/pow(t17,7.0);
    t610 = pow(t222,2.0);
    t611 = 21.42414814814815*t1*t2*t3/pow(rhoa,4.333333333333333)+
        18.83609421296296*t14*t15*t16/pow(rhoa,4.166666666666667)+
        11.04534375*t8*t9/pow(t10,9.0)+6.79197037037037*t4*t5*t6*t215;
    t612 = 1/
        pow(t36,8.0);
    t613 = 2069.000588228246*t392*t72*t393*t394;
    t614 = -385.9637837316264*t392*t72*t396*t233;
    t615 = -13.74674343057476*t1*t2*t3*t103*t231*t232*t233;
    t616 = 192.9818918658132*
        t242*t105*t72*t232*t233;
    t617 = 24.0*t392*t72*t232*t107;
    t618 = 1.7096*t1*t2*t3*t103*t231*t235*t107;
    t619 = -24.0*t242*t105*t72*t235*t107;
    t620 = -0.8548*t1*t2*t3*t103*t242*t106*t107;
    t621 = 1.139733333333333*t1*t2*t3*t240*t105*t106*t107;
    t622 = 4.0*
        t409*t72*t106*t107;
    t623 = -4101.558808403119*t81*t85*t411*t86*t412*t90*t413;
    t624 = 415.5781415850208*
        t81*t85*t411*t86*t416*t90*t246;
    t625 = 7.70551137522226*t81*t1*t2*t3*t103*t85*t244*t245*
        t90*t246;
    t626 = -207.7890707925104*t81*t85*t252*t109*t86*t245*
        t90*t246;
    t627 = -14.03573615389249*t81*t85*t411*t86*t245*t90*t111;
    t628 = -
        0.520491882373513*t81*t1*t2*t3*t103*t85*t244*t249*t90*t111;
    t629 = 14.03573615389249*
        t81*t85*t252*t109*t86*t249*t90*t111;
    t630 = 0.260245941186757*t81*t1*t2*t3*t103*t85*t252*t110*
        t90*t111;
    t631 = -0.346994588249009*t81*t1*t2*t3*t240*t85*t109*
        t110*t90*t111;
    t632 = -2.339289358982082*t81*t85*t431*t86*t110*t90*t111;
    t633 = 0.055121809659259*
        t1*t2*t3*t407*t79;
    t634 = -0.00911508517385*t81*t1*t2*t3*t407*t85*t90*t93;
    t635 = 4.0*
        t463*t81*t83*t84*t90;
    t636 = -48.0*t125*t284*t81*t83*t90;
    t637 = 240.0*t133*t273*t81*t83*t90;
    t638 = 144.0*t133*t275*t81*t84*t90;
    t639 = -480.0*t452*t81*t83*t90*t99;
    t640 = -576.0*t125*t275*t81*t90*t99;
    t641 = pow(t105,4.0);
    t642 = 1/pow(t77,8.0);
    t643 = 1/pow(t78,4.0);
    t644 = 24954.97798673546*t641*t72*t642*t643;
    t645 = 1/pow(t77,7.0);
    t646 = -6207.001764684737*t641*t72*t645*t394;
    t647 = -147.3818085681254*t1*t2*t3*t103*t392*t393*t394;
    t648 = 3103.500882342369*
        t242*t231*t72*t393*t394;
    t649 = 578.9456755974396*t641*t72*t393*t233;
    t650 = 27.49348686114952*t1*t2*t3*t103*t392*t396*t233;
    t651 = -
        578.9456755974396*t242*t231*t72*t396*t233;
    t652 = -13.74674343057476*t1*t2*t3*t103*t242*t105*t232*
        t233;
    t653 = 9.164495620383173*t1*t2*t3*t240*t231*t232*t233;
    t654 = pow(t242,
        2.0);
    t655 = 48.2454729664533*t654*t72*t232*t233;
    t656 = 64.3272972886044*t409*t105*t72*t232*t233;
    t657 = -24.0*t641*t72*t396*t107;
    t658 = -1.7096*t1*t2*t3*t103*t392*t232*t107;
    t659 = 36.0*t242*t231*t72*t232*t107;
    t660 = 1.7096*t1*t2*t3*t103*t242*t105*t235*t107;
    t661 = -1.139733333333333*t1*t2*t3*t240*t231*t235*t107;
    t662 = -
        6.0*t654*t72*t235*t107;
    t663 = -8.0*t409*t105*t72*t235*t107;
    t664 = -0.284933333333333*t1*t2*t3*t103*t409*t106*t107;
    t665 = 0.569866666666667*
        t1*t2*t3*t240*t242*t106*t107;
    t666 = -0.886459259259259*t1*t2*t3*t407*t105*t106*t107;
    t667 = 1/
        pow(t70,4.666666666666667);
    t668 = 1/pow(t74,9.0);
    t669 = 1/pow(t70,4.333333333333333);
    t670 = 1/pow(t70,4.166666666666667);
    t671 = 10.13346087962963*t14*t15*t16*t670+12.40158024691358*
        t1*t2*t3*t669+5.37534375*t8*t9*t668+5.355397530864196*t4*t5*
        t6*t667;
    t672 = 1.0*t671*t72*t106*t107;
    t673 = pow(t109,4.0);
    t674 = -91080.98259910994*t673*t81*t85*t86*t90/(pow(t91,
        8.0)*pow(t92,4.0));
    t675 = 12304.67642520936*t413*t673*t81*t85*t86*t90/pow(t91,
        7.0);
    t676 = 152.0994724782823*t81*t1*t2*t3*t103*t85*t411*t412*
        t90*t413;
    t677 = -6152.338212604678*t81*t85*t252*t244*t86*t412*
        t90*t413;
    t678 = -623.3672123775311*t81*t85*t673*t86*t412*t90*t246;
    t679 = -
        15.41102275044452*t81*t1*t2*t3*t103*t85*t411*t416*t90*t246;
    t680 = 623.3672123775311*
        t81*t85*t252*t244*t86*t416*t90*t246;
    t681 = 7.70551137522226*t81*t1*t2*t3*t103*t85*t252*t109*
        t245*t90*t246;
    t682 = -5.137007583481506*t81*t1*t2*t3*t240*t85*t244*
        t245*t90*t246;
    t683 = pow(t252,2.0);
    t684 = -51.9472676981276*t81*t85*t683*t86*t245*t90*t246;
    t685 = -
        69.26302359750346*t81*t85*t431*t109*t86*t245*t90*t246;
    t686 = 14.03573615389249*t81*t85*t673*t86*t416*t90*t111;
    t687 = 0.520491882373513*
        t81*t1*t2*t3*t103*t85*t411*t245*t90*t111;
    t688 = -21.05360423083874*t81*t85*t252*t244*t86*t245*
        t90*t111;
    t689 = -0.520491882373513*t81*t1*t2*t3*t103*t85*t252*
        t109*t249*t90*t111;
    t690 = 0.346994588249009*t81*t1*t2*t3*t240*t85*t244*t249*
        t90*t111;
    t691 = 3.508934038473122*t81*t85*t683*t86*t249*t90*t111;
    t692 = 4.678578717964164*
        t81*t85*t431*t109*t86*t249*t90*t111;
    t693 = 0.086748647062252*t81*t1*t2*t3*t103*t85*t431*t110*
        t90*t111;
    t694 = -0.173497294124504*t81*t1*t2*t3*t240*t85*t252*
        t110*t90*t111;
    t695 = 0.269884679749229*t81*t1*t2*t3*t407*t85*t109*t110*
        t90*t111;
    t696 = -0.58482233974552*t81*(13.81732484567901*t14*t15*
        t16*t670+12.5242962962963*t1*t2*t3*t669+2.888353125*t8*t9*
        t668+5.396355555555555*t4*t5*t6*t667)*t85*t86*t110*t90*t111;
    t697 = -
        0.045934841382716*t1*t2*t3*t669*t79;
    t698 = 1/pow(t88,2.666666666666667);
    t699 = -24.0*t125*t82;
    t700 = 24.0*t84;
    t701 = 1/pow(t89,2.666666666666667);
    t702 = 24.0*t125*t82;
    t703 = -24.0*t84;
    t704 = 1.333333333333333*t121*(t703+t702)+0.493827160493827*
        pow(t120,4.0)*t701+1.333333333333333*t118*(t700+t699)+0.493827160493827*
        pow(t117,4.0)*t698+1.777777777777778*t120*t263*t444-1.777777777777778*
        t262*t266*t441+1.777777777777778*t117*t257*t439-1.777777777777778*
        t256*t261*t436+1.333333333333333*t263*pow(t266,2.0)+1.333333333333333*
        t257*pow(t261,2.0);
    t705 = 0.007595904311542*t81*t1*t2*t3*t669*t85*t90*t93;
    t706 = 1/
        pow(t70,8.0);
    t707 = -840.0*t706*t83;
    t708 = -1440.0*t273*t275;
    t709 = pow(t130,4.0);
    t710 = pow(t283,2.0);
    t711 = t81*t83*t84*t90*(-0.022083265382716*t1*t2*t3*t669*
        t98+199659.0885685683*t709*t95/(pow(t96,8.0)*pow(t97,4.0))-
        24829.60425438716*t460*t709*t95/pow(t96,7.0)-6.0*t132*t282*
        t710*t95-24.0*t132*t461*t709*t95-8.0*t130*t132*t282*t462*t95+
        36.0*t132*t279*t280*t283*t95+0.045934841382716*t1*t2*t3*t669*
        t79-24954.97798673546*t641*t72*t642*t643+12414.80212719358*
        t283*t279*t95*t459*t460-566.8874535768302*t1*t2*t3*t103*t458*
        t459*t460+6207.001764684737*t641*t72*t645*t394-3103.500882342369*
        t242*t231*t72*t393*t394+147.3818085681254*t1*t2*t3*t103*t392*
        t393*t394-1157.928594403345*t283*t279*t95*t461*t281+52.87359279511096*
        t1*t2*t3*t103*t458*t461*t281+1157.928594403345*t709*t95*t459*
        t281+96.4940495336121*t710*t95*t280*t281+128.6587327114828*
        t462*t130*t95*t280*t281+17.62453093170365*t1*t2*t3*t240*t279*
        t280*t281-26.43679639755548*t1*t2*t3*t103*t283*t130*t280*t281+
        578.9456755974396*t242*t231*t72*t396*t233-27.49348686114952*
        t1*t2*t3*t103*t392*t396*t233-578.9456755974396*t641*t72*t393*
        t233-48.2454729664533*t654*t72*t232*t233-64.3272972886044*
        t409*t105*t72*t232*t233-9.164495620383173*t1*t2*t3*t240*t231*
        t232*t233+13.74674343057476*t1*t2*t3*t103*t242*t105*t232*t233-
        1.095893333333333*t1*t2*t3*t240*t279*t282*t132+1.64384*t1*
        t2*t3*t103*t283*t130*t282*t132-1.64384*t1*t2*t3*t103*t458*
        t280*t132+(18.83609421296296*t14*t15*t16*t670+21.42414814814815*
        t1*t2*t3*t669+11.04534375*t8*t9*t668+6.79197037037037*t4*t5*
        t6*t667)*t95*t131*t132-0.273973333333333*t1*t2*t3*t103*t462*
        t131*t132+0.547946666666667*t1*t2*t3*t240*t283*t131*t132-0.852361481481481*
        t1*t2*t3*t407*t130*t131*t132+24.0*t641*t72*t396*t107+6.0*t654*
        t72*t235*t107+8.0*t409*t105*t72*t235*t107+1.139733333333333*
        t1*t2*t3*t240*t231*t235*t107-1.7096*t1*t2*t3*t103*t242*t105*
        t235*t107-36.0*t242*t231*t72*t232*t107+1.7096*t1*t2*t3*t103*
        t392*t232*t107-1.0*t671*t72*t106*t107+0.284933333333333*t1*
        t2*t3*t103*t409*t106*t107-0.569866666666667*t1*t2*t3*t240*
        t242*t106*t107+0.886459259259259*t1*t2*t3*t407*t105*t106*t107);
    t712 = -
        16.0*t125*t463*t81*t83*t90;
    t713 = 120.0*t273*t284*t81*t83*t90;
    t714 = 72.0*t275*t284*t81*t84*t90;
    t715 = -480.0*t133*t452*t81*t83*t90;
    t716 = -576.0*t125*t133*t275*t81*t90;
    t717 = 840.0*t706*t81*t83*t90*t99;
    t718 = 1440.0*t273*t275*t81*t90*t99;
    t719 = 24.0*t81*t84*t90*t99;
    t720 = 1/pow(t62,8.0);
    t721 = -3.508934038473122*t81*t85*t109*t86*t110*t297*
        t111;
    t722 = -3.508934038473122*t81*t128*t109*t86*t110*t185*
        t111;
    t723 = -3.508934038473122*t81*t187*t109*t86*t110*t122*
        t111;
    t724 = -3.508934038473122*t81*t298*t109*t86*t110*t90*
        t111;
    t725 = -0.004394773208821*t81*t1*t2*t3*t103*t85*t297*
        t93;
    t726 = -0.004394773208821*t81*t1*t2*t3*t103*t128*t185*
        t93;
    t727 = -0.004394773208821*t81*t1*t2*t3*t103*t187*t122*
        t93;
    t728 = -0.004394773208821*t81*t1*t2*t3*t103*t298*t90*
        t93;
    t729 = 6.0*t133*t297*t81*t83*t84;
    t730 = -24.0*t125*t297*t81*t83*t99;
    t731 = -51.9472676981276*t81*t85*t244*t86*t245*t297*t246;
    t732 = -
        51.9472676981276*t81*t128*t244*t86*t245*t185*t246;
    t733 = -51.9472676981276*t81*t187*t244*t86*t245*t122*
        t246;
    t734 = -51.9472676981276*t81*t298*t244*t86*t245*t90*t246;
    t735 = 3.508934038473122*
        t81*t85*t244*t86*t249*t297*t111;
    t736 = 0.130122970593378*t81*t1*t2*t3*t103*t85*t109*t110*
        t297*t111;
    t737 = -1.754467019236561*t81*t85*t252*t86*t110*t297*
        t111;
    t738 = 3.508934038473122*t81*t128*t244*t86*t249*t185*
        t111;
    t739 = 0.130122970593378*t81*t1*t2*t3*t103*t128*t109*
        t110*t185*t111;
    t740 = -1.754467019236561*t81*t128*t252*t86*t110*t185*
        t111;
    t741 = 3.508934038473122*t81*t187*t244*t86*t249*t122*
        t111;
    t742 = 0.130122970593378*t81*t1*t2*t3*t103*t187*t109*
        t110*t122*t111;
    t743 = -1.754467019236561*t81*t187*t252*t86*t110*t122*
        t111;
    t744 = 3.508934038473122*t81*t298*t244*t86*t249*t90*t111;
    t745 = 0.130122970593378*
        t81*t1*t2*t3*t103*t298*t109*t110*t90*t111;
    t746 = -1.754467019236561*t81*t298*t252*t86*t110*t90*
        t111;
    t747 = 0.002929848805881*t81*t1*t2*t3*t240*t85*t297*t93;
    t748 = 1.333333333333333*
        t118*(12.0*t84+t699)+1.333333333333333*t121*(t702-12.0*t84)-
        1.777777777777778*t258*t262*t441*t82+1.777777777777778*t256*
        t258*t436*t82+2.666666666666667*t258*t263*t266*t82-2.666666666666667*
        t257*t258*t261*t82+0.493827160493827*t184*t440*t701+0.493827160493827*
        t183*t435*t698+1.333333333333333*t120*t263*t492+1.333333333333333*
        t117*t257*t491+0.444444444444444*t184*t263*t444-0.888888888888889*
        t120*t184*t266*t441+0.444444444444444*t183*t257*t439-0.888888888888889*
        t117*t183*t261*t436;
    t749 = 0.002929848805881*t81*t1*t2*t3*t240*t128*t185*
        t93;
    t750 = 0.002929848805881*t81*t1*t2*t3*t240*t187*t122*
        t93;
    t751 = 0.002929848805881*t81*t1*t2*t3*t240*t298*t90*t93;
    t752 = 3.0*
        t284*t297*t81*t83*t84;
    t753 = -24.0*t125*t133*t297*t81*t83;
    t754 = 60.0*t273*t297*t81*t83*t99;
    t755 = 36.0*t275*t297*t81*t84*t99;
    t756 = -24.0*t81*t84*t90*t99;
    t757 = pow(grada,15.0);
    t758 = 1/pow(rhoa,24.33333333333333);
    t759 = -32.0*t118*t125*t82;
    t760 = 32.0*t121*t125*t82;
    t761 = -5.333333333333333*t120*t263*t82*t84+5.333333333333333*
        t117*t257*t82*t84-2.37037037037037*t120*t184*t258*t441*t82+
        2.37037037037037*t117*t183*t258*t436*t82+t760+t759+0.493827160493827*
        t262*t329*t701+0.493827160493827*t256*t327*t698+0.888888888888889*
        t184*t263*t492+0.888888888888889*t183*t257*t491-0.296296296296296*
        t262*t330*t441-0.296296296296296*t266*t329*t441-0.296296296296296*
        t256*t328*t436-0.296296296296296*t261*t327*t436+0.444444444444444*
        t263*t266*t330+0.444444444444444*t257*t261*t328+3.555555555555555*
        t263*t273*t275+3.555555555555555*t257*t273*t275-1.777777777777778*
        t120*t258*t263+1.777777777777778*t117*t257*t258;
    t762 = 1/pow(rhoa,23.33333333333333);
    t763 = -8.0*t184*t263*t82*t84+8.0*t183*t257*t82*t84+16.0*
        t121*t84-16.0*t118*t84-1.777777777777778*t258*t329*t441*t82+
        1.777777777777778*t258*t327*t436*t82+2.666666666666667*t258*
        t263*t330*t82-2.666666666666667*t257*t258*t328*t82+t760+t759+
        0.493827160493827*t120*t555*t701+0.493827160493827*t117*t553*
        t698+0.444444444444444*t120*t263*t556+0.444444444444444*t117*
        t257*t554-0.888888888888889*t120*t184*t330*t441-0.888888888888889*
        t117*t183*t328*t436-2.666666666666667*t184*t258*t263+2.666666666666667*
        t183*t257*t258;
    t764 = 1/pow(rhoa,22.33333333333333);
    t765 = pow(gradb,16.0);
    t766 = 1/pow(t150,8.0);
    t767 = 1/pow(rhob,25.33333333333333);
    t768 = 1/pow(rhob,22.66666666666667);
    t769 = 1/pow(rhob,20.0);
    t770 = 1/pow(rhob,17.33333333333333);
    t771 = 1/pow(rhob,14.66666666666667);
    t772 = 1/pow(rhob,12.0);
    t773 = 1/pow(rhob,9.333333333333334);
    t774 = 1/pow(rhob,6.666666666666667);
    t775 = 1/pow(t145,4.0);
    t776 = pow(t179,4.0);
    t777 = 1/pow(t144,8.0);
    t778 = 1/pow(t144,7.0);
    t779 = pow(t322,2.0);
    t780 = 21.42414814814815*t1*t2*t3/pow(rhob,4.333333333333333)+
        18.83609421296296*t14*t15*t16/pow(rhob,4.166666666666667)+
        11.04534375*t8*t9/pow(t141,9.0)+6.79197037037037*t4*t5*t6*
        t315;
    t781 = 1/pow(t161,8.0);
    t782 = 1.333333333333333*t118*(t703+t699)+0.493827160493827*
        pow(t184,4.0)*t701+1.333333333333333*t121*(t700+t702)+0.493827160493827*
        pow(t183,4.0)*t698+1.777777777777778*t184*t263*t556+1.777777777777778*
        t183*t257*t554-1.777777777777778*t329*t330*t441-1.777777777777778*
        t327*t328*t436+1.333333333333333*t263*pow(t330,2.0)+1.333333333333333*
        t257*pow(t328,2.0);
    t783 = pow(gradb,15.0);
    t784 = 1/pow(rhob,24.33333333333333);
    t785 = 1/pow(rhob,23.33333333333333);
    t786 = 1/pow(rhob,22.33333333333333);
    t787 = 1/pow(rhoa,21.33333333333333);
    t788 = 1/pow(rhob,21.33333333333333);

   /* code */
    dfdra = t50*t33*t54*t34*t55*rhoa-0.03109*t19*t49*t34*
        rhoa-0.75*t3*t35*t52*t57-1.0*t11*t3*t35*t41-0.03109*t19*t33*
        t34+t139*t148+t69*t137+0.002129457733333*t1*t2*t3*t19*t33*
        t12;
    dfdrb = t175*t160*t179*t147*t180*rhob-0.03109*t146*t174*
        t147*rhob-0.75*t177*t182*t3*t35-1.0*t142*t166*t3*t35+t69*t190+
        t191*t148-0.03109*t146*t160*t147+0.002129457733333*t1*t2*t3*
        t146*t160*t143;
    dfdga = -0.03109*t19*t197*t34*rhoa-0.75*t198*t3*t35*t52+
        t199*t148;
    dfdgb = -0.03109*t146*t205*t147*rhob-0.75*t177*t206*t3*
        t35+t207*t148;
    dfdgab = 0.0;
    d2fdrara = 2.0*t34*t49*t50*t54*t55*rhoa+t50*t33*t222*
        t34*t55*rhoa-2.0*t218*t220*t33*t34*t50*rhoa-0.03109*t19*t216*
        t34*rhoa+32.1646831778707*t217*t33*t218*t34*t219*rhoa-0.333333333333333*
        t3*t35*t41*t7-2.0*t11*t3*t35*t57+2.0*t33*t34*t50*t54*t55+0.001419638488889*
        t1*t2*t3*t19*t33*t53-0.75*t224*t3*t35*t52-0.06218*t19*t49*
        t34+t69*t294+t296*t148+2.0*t137*t139-0.136986666666667*t1*
        t2*t3*t50*t33*t54*t55*t12+0.004258915466667*t1*t2*t3*t19*t49*
        t12;
    d2fdrarb = t301*t148+t191*t137+t139*t190+t69*t300;
    d2fdraga = t50*t197*t54*t34*t55*rhoa-0.03109*t19*t304*
        t34*rhoa-0.75*t3*t305*t35*t52-1.0*t11*t198*t3*t35-0.03109*
        t19*t197*t34+t306*t148+t199*t137+0.002129457733333*t1*t2*t3*
        t19*t197*t12;
    d2fdragb = t307*t148+t207*t137;
    d2fdraab = 0.0;
    d2fdrbrb = -2.0*t147*t160*t175*t318*t320*rhob+32.1646831778707*
        t317*t160*t318*t147*t319*rhob+2.0*t147*t174*t175*t179*t180*
        rhob+t175*t160*t322*t147*t180*rhob-0.03109*t146*t316*t147*
        rhob-0.75*t177*t3*t324*t35-2.0*t142*t182*t3*t35-0.333333333333333*
        t140*t166*t3*t35+t69*t343+2.0*t190*t191+2.0*t147*t160*t175*
        t179*t180+0.001419638488889*t1*t2*t3*t146*t160*t178+t344*t148-
        0.06218*t146*t174*t147-0.136986666666667*t1*t2*t3*t175*t160*
        t179*t180*t143+0.004258915466667*t1*t2*t3*t146*t174*t143;
    d2fdrbga = t345*
        t148+t199*t190;
    d2fdrbgb = t175*t205*t179*t147*t180*rhob-0.03109*t146*
        t348*t147*rhob-0.75*t177*t3*t349*t35-1.0*t142*t206*t3*t35+
        t207*t190+t350*t148-0.03109*t146*t205*t147+0.002129457733333*
        t1*t2*t3*t146*t205*t143;
    d2fdrbgab = 0.0;
    d2fdgaga = -0.03109*t19*t352*t34*rhoa-0.75*t3*t35*t353*
        t52+t354*t148;
    d2fdgagb = t355*t148;
    d2fdgagab = 0.0;
    d2fdgbgb = -0.03109*t146*t357*t147*rhob-0.75*t177*t3*
        t35*t358+t359*t148;
    d2fdgbgab = 0.0;
    d2fdgabgab = 0.0;
    d3fdrarara = 3.0*t216*t34*t50*t54*t55*rhoa+3.0*t222*t34*
        t49*t50*t55*rhoa+t50*t375*t33*t34*t55*rhoa-6.0*t220*t222*t33*
        t34*t50*t54*rhoa-6.0*t218*t220*t34*t49*t50*rhoa+6.0*t219*t33*
        t34*t371*t50*rhoa-192.9880990672242*t217*t33*t371*t34*t373*
        rhoa+2069.133687865597*t370*t33*t371*t34*t372*rhoa-0.03109*
        t19*t369*t34*rhoa+96.4940495336121*t217*t33*t222*t54*t34*t219*
        rhoa+96.4940495336121*t217*t49*t218*t34*t219*rhoa-1.0*t3*t35*
        t57*t7+3.0*t222*t33*t34*t50*t55+6.0*t50*t49*t54*t34*t55-0.136986666666667*
        t1*t2*t3*t50*t33*t54*t55*t53+0.004258915466667*t1*t2*t3*t19*
        t49*t53-0.75*t3*t35*t377*t52+0.222222222222222*t3*t35*t41*
        t51-6.0*t218*t220*t33*t34*t50+t69*t478-3.0*t11*t224*t3*t35-
        0.09327*t19*t216*t34+3.0*t137*t296+3.0*t139*t294-0.001892851318519*
        t1*t2*t3*t19*t33*t221+96.4940495336121*t217*t33*t218*t34*t219+
        t480*t148-0.41096*t1*t2*t3*t50*t49*t54*t55*t12-0.20548*t1*
        t2*t3*t50*t33*t222*t55*t12+0.41096*t1*t2*t3*t50*t33*t218*t220*
        t12-6.60919909938887*t1*t2*t3*t217*t33*t218*t219*t12+0.0063883732*
        t1*t2*t3*t19*t216*t12;
    d3fdrararb = t69*t506+2.0*t137*t301+2.0*t139*t300+t191*
        t294+t296*t190+t507*t148;
    d3fdraraga = 2.0*t304*t34*t50*t54*t55*rhoa+t50*t197*t222*
        t34*t55*rhoa-2.0*t197*t218*t220*t34*t50*rhoa-0.03109*t19*t510*
        t34*rhoa+32.1646831778707*t217*t197*t218*t34*t219*rhoa-0.333333333333333*
        t198*t3*t35*t7+2.0*t197*t34*t50*t54*t55+0.001419638488889*
        t1*t2*t3*t19*t197*t53-0.75*t3*t35*t511*t52-2.0*t11*t3*t305*
        t35-0.06218*t19*t304*t34+2.0*t137*t306+t199*t294+t512*t148-
        0.136986666666667*t1*t2*t3*t50*t197*t54*t55*t12+0.004258915466667*
        t1*t2*t3*t19*t304*t12;
    d3fdraragb = 2.0*t137*t307+t207*t294+t513*t148;
    d3fdraraab = 0.0;
    d3fdrarbrb = t69*t517+t139*t343+2.0*t190*t301+2.0*t191*
        t300+t518*t148+t344*t137;
    d3fdrarbga = t519*t148+t345*t137+t306*t190+t199*t300;
    d3fdrarbgb = t520*
        t148+t350*t137+t307*t190+t207*t300;
    d3fdrarbab = 0.0;
    d3fdragaga = t50*t352*t54*t34*t55*rhoa-0.03109*t19*t522*
        t34*rhoa-0.75*t3*t35*t52*t523-1.0*t11*t3*t35*t353-0.03109*
        t19*t352*t34+t524*t148+t354*t137+0.002129457733333*t1*t2*t3*
        t19*t352*t12;
    d3fdragagb = t525*t148+t355*t137;
    d3fdragaab = 0.0;
    d3fdragbgb = t526*t148+t359*t137;
    d3fdragbab = 0.0;
    d3fdraabab = 0.0;
    d3fdrbrbrb = -192.9880990672242*t317*t160*t538*t147*t540*
        rhob+2069.133687865597*t537*t160*t538*t147*t539*rhob+6.0*t147*
        t160*t175*t319*t538*rhob-6.0*t147*t160*t175*t179*t320*t322*
        rhob+3.0*t147*t174*t175*t180*t322*rhob-6.0*t147*t174*t175*
        t318*t320*rhob+96.4940495336121*t317*t174*t318*t147*t319*rhob+
        96.4940495336121*t317*t160*t322*t179*t147*t319*rhob+3.0*t147*
        t175*t179*t180*t316*rhob+t175*t542*t160*t147*t180*rhob-0.03109*
        t146*t536*t147*rhob+t69*t572-0.75*t177*t3*t35*t544-3.0*t142*
        t3*t324*t35-1.0*t140*t182*t3*t35+0.222222222222222*t166*t176*
        t3*t35+3.0*t190*t344+3.0*t191*t343+3.0*t147*t160*t175*t180*
        t322-0.001892851318519*t1*t2*t3*t146*t160*t321-6.0*t147*t160*
        t175*t318*t320+96.4940495336121*t317*t160*t318*t147*t319+6.0*
        t175*t174*t179*t147*t180-0.136986666666667*t1*t2*t3*t175*t160*
        t179*t180*t178+0.004258915466667*t1*t2*t3*t146*t174*t178+t573*
        t148-0.09327*t146*t316*t147+0.41096*t1*t2*t3*t175*t160*t318*
        t320*t143-6.60919909938887*t1*t2*t3*t317*t160*t318*t319*t143+
        0.0063883732*t1*t2*t3*t146*t316*t143-0.20548*t1*t2*t3*t175*
        t160*t322*t180*t143-0.41096*t1*t2*t3*t175*t174*t179*t180*t143;
    d3fdrbrbga = 2.0*
        t190*t345+t199*t343+t574*t148;
    d3fdrbrbgb = 2.0*t147*t175*t179*t180*t348*rhob-2.0*t147*
        t175*t205*t318*t320*rhob+32.1646831778707*t317*t205*t318*t147*
        t319*rhob+t175*t205*t322*t147*t180*rhob-0.03109*t146*t577*
        t147*rhob-0.75*t177*t3*t35*t578+2.0*t190*t350-2.0*t142*t3*
        t349*t35-0.333333333333333*t140*t206*t3*t35+t207*t343+2.0*
        t147*t175*t179*t180*t205+0.001419638488889*t1*t2*t3*t146*t205*
        t178+t579*t148-0.06218*t146*t348*t147+0.004258915466667*t1*
        t2*t3*t146*t348*t143-0.136986666666667*t1*t2*t3*t175*t205*
        t179*t180*t143;
    d3fdrbrbab = 0.0;
    d3fdrbgaga = t580*t148+t354*t190;
    d3fdrbgagb = t581*t148+t355*t190;
    d3fdrbgaab = 0.0;
    d3fdrbgbgb = t175*t357*t179*t147*t180*rhob-0.03109*t146*
        t583*t147*rhob-0.75*t177*t3*t35*t584-1.0*t142*t3*t35*t358+
        t359*t190+t585*t148-0.03109*t146*t357*t147+0.002129457733333*
        t1*t2*t3*t146*t357*t143;
    d3fdrbgbab = 0.0;
    d3fdrbabab = 0.0;
    d3fdgagaga = -0.03109*t19*t587*t34*rhoa-0.75*t3*t35*t52*
        t588+t589*t148;
    d3fdgagagb = t590*t148;
    d3fdgagaab = 0.0;
    d3fdgagbgb = t591*t148;
    d3fdgagbab = 0.0;
    d3fdgaabab = 0.0;
    d3fdgbgbgb = -0.03109*t146*t593*t147*rhob-0.75*t177*t3*
        t35*t594+t595*t148;
    d3fdgbgbab = 0.0;
    d3fdgbabab = 0.0;
    d3fdababab = 0.0;
    d4fdrararara = t69*(24829.60425438716*t370*t607*t34*t609*
        rhoa-199659.0885685683*t606*t607*t34*t608*rhoa-1.0*t50*t611*
        t34*t55*rhoa+24.0*t50*t607*t34*t373*rhoa+1157.928594403345*
        t217*t222*t218*t34*t373*rhoa-1157.928594403345*t217*t607*t34*
        t372*rhoa-12414.80212719358*t370*t222*t218*t34*t372*rhoa+6.0*
        t50*t610*t34*t220*rhoa+8.0*t50*t375*t54*t34*t220*rhoa-96.4940495336121*
        t217*t610*t34*t219*rhoa-128.6587327114828*t217*t375*t54*t34*
        t219*rhoa-36.0*t50*t222*t218*t34*t219*rhoa+t70*(-384.0*t125*
        t81*t82*t90*t99-1920.0*t127*t452*t81*t90*t99+96.0*t122*t81*
        t82*t84*t99+16.0*t127*t445*t81*t84*t99+72.0*t267*t275*t81*
        t84*t99-480.0*t122*t452*t81*t83*t99-16.0*t125*t445*t81*t83*
        t99+120.0*t267*t273*t81*t83*t99-576.0*t122*t125*t275*t81*t99+
        960.0*t122*t127*t273*t81*t99-192.0*t125*t127*t267*t81*t99+
        t81*t83*t84*t704*t99+0.019751789702565*t81*(384.0*t125*t82+
        t708+t707+t703+1920.0*t127*t452)*t86*t90*t93-0.002929848805881*
        t81*t1*t2*t3*t103*t456*t90*t93+0.005859697611761*t81*t1*t2*
        t3*t240*t277*t90*t93-0.00911508517385*t81*t1*t2*t3*t407*t128*
        t90*t93+0.019751789702565*t81*t85*t86*t704*t93+0.079007158810261*
        t81*t128*t86*t445*t93-0.002929848805881*t81*t1*t2*t3*t103*
        t85*t445*t93+0.118510738215391*t81*t277*t86*t267*t93+0.005859697611761*
        t81*t1*t2*t3*t240*t85*t267*t93-0.008789546417642*t81*t1*t2*
        t3*t103*t128*t267*t93+0.079007158810261*t81*t456*t86*t122*
        t93-0.00911508517385*t81*t1*t2*t3*t407*t85*t122*t93-0.008789546417642*
        t81*t1*t2*t3*t103*t277*t122*t93+0.011719395223522*t81*t1*t2*
        t3*t240*t128*t122*t93+96.0*t133*t81*t82*t84*t90+16.0*t127*
        t463*t81*t84*t90-192.0*t125*t127*t284*t81*t90+960.0*t127*t133*
        t273*t81*t90+4.0*t122*t463*t81*t83*t84+4.0*t133*t445*t81*t83*
        t84+6.0*t267*t284*t81*t83*t84+48.0*t122*t127*t284*t81*t84+
        144.0*t122*t133*t275*t81*t84+48.0*t127*t133*t267*t81*t84-48.0*
        t122*t125*t284*t81*t83+240.0*t122*t133*t273*t81*t83-48.0*t125*
        t133*t267*t81*t83-384.0*t122*t125*t127*t133*t81+t719+t718+
        t717+t716+t715+t714+t713+t712+t711+t705+t697+t696+t695+t694+
        t693+t692+t691+t690+t689+t688+t687+t686+t685+t684+t682+t681+
        t680+t679+t678+t677+t676+t675+t674+t672+t666+t665+t664+t663+
        t662+t661+t660+t659+t658+t657+t656+t655+t653+t652+t651+t650+
        t649+t648+t647+t646+t644-4101.558808403119*t81*t128*t411*t86*
        t412*t90*t413-4101.558808403119*t81*t85*t411*t86*t412*t122*
        t413+415.5781415850207*t81*t128*t411*t86*t416*t90*t246-103.8945353962552*
        t81*t277*t244*t86*t245*t90*t246-207.7890707925104*t81*t128*
        t252*t109*t86*t245*t90*t246+7.70551137522226*t81*t1*t2*t3*
        t103*t128*t244*t245*t90*t246-103.8945353962552*t81*t85*t244*
        t86*t245*t267*t246+415.5781415850207*t81*t85*t411*t86*t416*
        t122*t246-207.7890707925104*t81*t128*t244*t86*t245*t122*t246-
        207.7890707925104*t81*t85*t252*t109*t86*t245*t122*t246+7.70551137522226*
        t81*t1*t2*t3*t103*t85*t244*t245*t122*t246+7.017868076946245*
        t81*t277*t244*t86*t249*t90*t111+14.03573615389249*t81*t128*
        t252*t109*t86*t249*t90*t111-0.520491882373513*t81*t1*t2*t3*
        t103*t128*t244*t249*t90*t111-14.03573615389249*t81*t128*t411*
        t86*t245*t90*t111-2.339289358982082*t81*t128*t431*t86*t110*
        t90*t111-3.508934038473122*t81*t277*t252*t86*t110*t90*t111-
        2.339289358982082*t81*t456*t109*t86*t110*t90*t111+0.260245941186757*
        t81*t1*t2*t3*t103*t128*t252*t110*t90*t111+0.260245941186757*
        t81*t1*t2*t3*t103*t277*t109*t110*t90*t111-0.346994588249009*
        t81*t1*t2*t3*t240*t128*t109*t110*t90*t111-2.339289358982082*
        t81*t85*t109*t86*t110*t445*t111+7.017868076946245*t81*t85*
        t244*t86*t249*t267*t111-3.508934038473122*t81*t85*t252*t86*
        t110*t267*t111-7.017868076946245*t81*t128*t109*t86*t110*t267*
        t111+0.260245941186757*t81*t1*t2*t3*t103*t85*t109*t110*t267*
        t111+14.03573615389249*t81*t128*t244*t86*t249*t122*t111+14.03573615389249*
        t81*t85*t252*t109*t86*t249*t122*t111-0.520491882373513*t81*
        t1*t2*t3*t103*t85*t244*t249*t122*t111-14.03573615389249*t81*
        t85*t411*t86*t245*t122*t111-2.339289358982082*t81*t85*t431*
        t86*t110*t122*t111-7.017868076946245*t81*t128*t252*t86*t110*
        t122*t111-7.017868076946245*t81*t277*t109*t86*t110*t122*t111+
        0.260245941186757*t81*t1*t2*t3*t103*t85*t252*t110*t122*t111-
        0.346994588249009*t81*t1*t2*t3*t240*t85*t109*t110*t122*t111+
        0.520491882373513*t81*t1*t2*t3*t103*t128*t109*t110*t122*t111)+
        96.0*t81*t82*t84*t90*t99+960.0*t127*t273*t81*t90*t99+4.0*t445*
        t81*t83*t84*t99+144.0*t122*t275*t81*t84*t99+48.0*t127*t267*
        t81*t84*t99+240.0*t122*t273*t81*t83*t99-48.0*t125*t267*t81*
        t83*t99-384.0*t122*t125*t127*t81*t99+0.079007158810261*t81*
        t456*t86*t90*t93-0.008789546417642*t81*t1*t2*t3*t103*t277*
        t90*t93+0.011719395223522*t81*t1*t2*t3*t240*t128*t90*t93+0.079007158810261*
        t81*t85*t86*t445*t93+0.237021476430782*t81*t128*t86*t267*t93-
        0.008789546417642*t81*t1*t2*t3*t103*t85*t267*t93+0.237021476430782*
        t81*t277*t86*t122*t93+0.011719395223522*t81*t1*t2*t3*t240*
        t85*t122*t93-0.017579092835283*t81*t1*t2*t3*t103*t128*t122*
        t93+48.0*t127*t284*t81*t84*t90-384.0*t125*t127*t133*t81*t90+
        12.0*t122*t284*t81*t83*t84+12.0*t133*t267*t81*t83*t84+96.0*
        t122*t127*t133*t81*t84-96.0*t122*t125*t133*t81*t83+t640+t639+
        t638+t637+t636+t635+t634+t633+t632+t631+t630+t629+t628+t627+
        t626+t625+t624+t623+t622+t621+t620+t619+t618+t617+t616+t615+
        t614+t613-4.0*t50*t375*t34*t55+0.273973333333333*t1*t2*t3*
        t50*t222*t55*t53-0.547946666666667*t1*t2*t3*t50*t218*t220*
        t53+8.812265465851826*t1*t2*t3*t217*t218*t219*t53-0.004416653076543*
        t1*t2*t3*t19*t374+771.9523962688968*t217*t371*t34*t373-8276.534751462386*
        t370*t371*t34*t372-207.7890707925104*t81*t128*t244*t86*t245*
        t90*t246-207.7890707925104*t81*t85*t244*t86*t245*t122*t246-
        0.243531851851852*t1*t2*t3*t50*t54*t55*t221+24.0*t50*t222*
        t54*t34*t220-385.9761981344484*t217*t222*t54*t34*t219-24.0*
        t50*t371*t34*t219+0.273973333333333*t1*t2*t3*t50*t375*t55*
        t12-52.87359279511096*t1*t2*t3*t217*t371*t373*t12+566.8874535768302*
        t1*t2*t3*t370*t371*t372*t12-1.64384*t1*t2*t3*t50*t222*t54*
        t220*t12+26.43679639755548*t1*t2*t3*t217*t222*t54*t219*t12+
        1.64384*t1*t2*t3*t50*t371*t219*t12+14.03573615389249*t81*t128*
        t244*t86*t249*t90*t111-7.017868076946245*t81*t128*t252*t86*
        t110*t90*t111-7.017868076946245*t81*t277*t109*t86*t110*t90*
        t111+0.520491882373513*t81*t1*t2*t3*t103*t128*t109*t110*t90*
        t111-7.017868076946245*t81*t85*t109*t86*t110*t267*t111+14.03573615389249*
        t81*t85*t244*t86*t249*t122*t111-7.017868076946245*t81*t85*
        t252*t86*t110*t122*t111-14.03573615389249*t81*t128*t109*t86*
        t110*t122*t111+0.520491882373513*t81*t1*t2*t3*t103*t85*t109*
        t110*t122*t111)-6.0*t220*t33*t34*t50*t610*rhoa-24829.60425438716*
        t370*t33*t607*t34*t609*rhoa+199659.0885685683*t606*t33*t607*
        t34*t608*rhoa-24.0*t33*t34*t373*t50*t607*rhoa+4.0*t34*t369*
        t50*t54*t55*rhoa+4.0*t34*t375*t49*t50*t55*rhoa+6.0*t216*t222*
        t34*t50*t55*rhoa+t50*t611*t33*t34*t55*rhoa-24.0*t220*t222*
        t34*t49*t50*t54*rhoa-8.0*t220*t33*t34*t375*t50*t54*rhoa+24.0*
        t219*t34*t371*t49*t50*rhoa+36.0*t218*t219*t222*t33*t34*t50*
        rhoa-12.0*t216*t218*t220*t34*t50*rhoa-771.9523962688968*t217*
        t49*t371*t34*t373*rhoa-1157.928594403345*t217*t33*t222*t218*
        t34*t373*rhoa+1157.928594403345*t217*t33*t607*t34*t372*rhoa+
        8276.534751462386*t370*t49*t371*t34*t372*rhoa+12414.80212719358*
        t370*t33*t222*t218*t34*t372*rhoa-0.03109*t19*(-54.19066074074075*
        t21*t32*t605+486.930717234568*t29*t30*t604-1317.319734676543*
        t26*t27*t603+1367.216129390618*t20*t24*t602-671.0047916942226*
        t42*t43*t601+168.9185086324939*t208*t209*t600-21.16970474761483*
        t360*t361*t599+1.048765520402964*t596*t597*t598)*t34*rhoa+
        96.4940495336121*t217*t33*t610*t34*t219*rhoa+128.6587327114828*
        t217*t375*t33*t54*t34*t219*rhoa+385.9761981344484*t217*t49*
        t222*t54*t34*t219*rhoa+192.9880990672242*t217*t216*t218*t34*
        t219*rhoa-2.0*t224*t3*t35*t7-0.75*t3*t35*t52*(-0.425809619753086*
        t21*t40*t605+0.092374628187654*t29*t39*t604-0.001229146564583*
        t26*t38*t603-7.06600220697284E-6*t20*t37*t602+2.0448821150909626E-7*
        t42*t56*t601-1.333071983249383E-9*t208*t223*t600+3.67605704051674E-12*
        t360*t376*t599-3.76616933178785E-15*t596*t612*t598)+0.888888888888889*
        t3*t35*t51*t57+4.0*t33*t34*t375*t50*t55+12.0*t50*t216*t54*
        t34*t55+12.0*t50*t49*t222*t34*t55-24.0*t220*t222*t33*t34*t50*
        t54-0.547946666666667*t1*t2*t3*t50*t49*t54*t55*t53-0.273973333333333*
        t1*t2*t3*t50*t33*t222*t55*t53+0.547946666666667*t1*t2*t3*t50*
        t33*t218*t220*t53-8.812265465851826*t1*t2*t3*t217*t33*t218*
        t219*t53+0.008517830933333*t1*t2*t3*t19*t216*t53+24.0*t219*
        t33*t34*t371*t50+4.0*t137*t480+4.0*t139*t478-0.37037037037037*
        t22*t3*t35*t41-4.0*t11*t3*t35*t377+0.004416653076543*t1*t2*
        t3*t19*t33*t374-771.9523962688968*t217*t33*t371*t34*t373+8276.534751462386*
        t370*t33*t371*t34*t372-0.12436*t19*t369*t34+6.0*t294*t296+
        0.243531851851852*t1*t2*t3*t50*t33*t54*t55*t221-0.007571405274074*
        t1*t2*t3*t19*t49*t221-24.0*t50*t49*t218*t34*t220+385.9761981344484*
        t217*t33*t222*t54*t34*t219+385.9761981344484*t217*t49*t218*
        t34*t219+(2.348055111111111*t21*t605*t68-0.107870908444444*
        t21*t605*t60*t67-0.182426424888889*t29*t604*t67+0.002289402602667*
        t21*t605*t66*t65+0.008785206613333*t29*t604*t60*t65+0.002959368192*
        t26*t603*t65-3.0076421760000003E-5*t21*t605*t64*t63-1.9660550553600003E-4*
        t29*t604*t66*t63-1.4867723059199998E-4*t26*t603*t60*t63-1.2239142912E-5*
        t20*t602*t63+1.18297073664E-7*t21*t605*t61*t138+1.7875125227519998E-6*
        t29*t604*t64*t138+2.71849070592E-6*t26*t603*t66*t138+5.457718149119999E-7*
        t20*t602*t60*t138-5.30845691904E-9*t29*t604*t61*t295-2.0186751467519998E-8*
        t26*t603*t64*t295-8.61302882304E-9*t20*t602*t66*t295+5.153378402304E-11*
        t26*t603*t61*t479+5.653685993472E-11*t20*t602*t64*t479-1.3117690478592E-13*
        t20*t602*t61*t720)*t148-0.82192*t1*t2*t3*t50*t216*t54*t55*
        t12-0.273973333333333*t1*t2*t3*t50*t375*t33*t55*t12-0.82192*
        t1*t2*t3*t50*t49*t222*t55*t12+52.87359279511096*t1*t2*t3*t217*
        t33*t371*t373*t12-566.8874535768302*t1*t2*t3*t370*t33*t371*
        t372*t12+0.008517830933333*t1*t2*t3*t19*t369*t12+1.64384*t1*
        t2*t3*t50*t33*t222*t54*t220*t12+1.64384*t1*t2*t3*t50*t49*t218*
        t220*t12-26.43679639755548*t1*t2*t3*t217*t33*t222*t54*t219*
        t12-1.64384*t1*t2*t3*t50*t33*t371*t219*t12-26.43679639755548*
        t1*t2*t3*t217*t49*t218*t219*t12;
    d4fdrarararb = t69*(t70*(192.0*t125*t81*t82*t90*t99-960.0*
        t127*t452*t81*t90*t99+24.0*t185*t81*t82*t84*t99-72.0*t122*
        t81*t82*t84*t99+12.0*t127*t493*t81*t84*t99-4.0*t127*t445*t81*
        t84*t99-36.0*t267*t275*t81*t84*t99-12.0*t125*t493*t81*t83*
        t99-120.0*t185*t452*t81*t83*t99-360.0*t122*t452*t81*t83*t99-
        4.0*t125*t445*t81*t83*t99+60.0*t267*t273*t81*t83*t99-96.0*
        t125*t127*t297*t81*t99-144.0*t125*t185*t275*t81*t99+144.0*
        t122*t125*t275*t81*t99+240.0*t127*t185*t273*t81*t99+240.0*
        t122*t127*t273*t81*t99+t81*t83*t84*t748*t99+0.019751789702565*
        t81*(-192.0*t125*t82+t707+t700+960.0*t127*t452)*t86*t90*t93-
        0.00219738660441*t81*t1*t2*t3*t103*t499*t90*t93-7.324622014701263E-4*
        t81*t1*t2*t3*t103*t456*t90*t93+0.002929848805881*t81*t1*t2*
        t3*t240*t277*t90*t93-0.002278771293463*t81*t1*t2*t3*t407*t187*
        t90*t93-0.006836313880388*t81*t1*t2*t3*t407*t128*t90*t93+0.019751789702565*
        t81*t85*t86*t748*t93+0.059255369107696*t81*t128*t86*t493*t93-
        0.00219738660441*t81*t1*t2*t3*t103*t85*t493*t93+0.019751789702565*
        t81*t187*t86*t445*t93-7.324622014701263E-4*t81*t1*t2*t3*t103*
        t85*t445*t93+0.059255369107696*t81*t277*t86*t297*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t128*t297*t93+0.059255369107696*t81*t298*
        t86*t267*t93+0.002929848805881*t81*t1*t2*t3*t240*t85*t267*
        t93-0.00219738660441*t81*t1*t2*t3*t103*t187*t267*t93-0.00219738660441*
        t81*t1*t2*t3*t103*t128*t267*t93+0.019751789702565*t81*t456*
        t86*t185*t93-0.002278771293463*t81*t1*t2*t3*t407*t85*t185*
        t93-0.00219738660441*t81*t1*t2*t3*t103*t277*t185*t93+0.059255369107696*
        t81*t499*t86*t122*t93-0.006836313880388*t81*t1*t2*t3*t407*
        t85*t122*t93-0.004394773208821*t81*t1*t2*t3*t103*t298*t122*
        t93-0.00219738660441*t81*t1*t2*t3*t103*t277*t122*t93+0.005859697611761*
        t81*t1*t2*t3*t240*t128*t122*t93-48.0*t133*t81*t82*t84*t90+
        8.0*t127*t463*t81*t84*t90-96.0*t125*t127*t284*t81*t90+480.0*
        t127*t133*t273*t81*t90+3.0*t133*t493*t81*t83*t84+3.0*t122*
        t463*t81*t83*t84+3.0*t267*t284*t81*t83*t84+24.0*t127*t133*
        t297*t81*t84+12.0*t127*t185*t284*t81*t84+12.0*t122*t127*t284*
        t81*t84+36.0*t133*t185*t275*t81*t84-36.0*t122*t133*t275*t81*
        t84-12.0*t125*t185*t284*t81*t83-36.0*t122*t125*t284*t81*t83+
        60.0*t133*t185*t273*t81*t83+180.0*t122*t133*t273*t81*t83-24.0*
        t125*t133*t267*t81*t83-96.0*t125*t127*t133*t185*t81-96.0*t122*
        t125*t127*t133*t81+t756+t755+t754+t753+t752+t751+t750+t749+
        t747+t746+t745+t744+t743+t742+t741+t740+t739+t738+t737+t736+
        t735+t734+t733+t732+t731+t717+t715+t713+t712+t711+t705+t697+
        t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+t686+t685+
        t684+t682+t681+t680+t679+t678+t677+t676+t675+t674+t672+t666+
        t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+t655+t653+
        t652+t651+t650+t649+t648+t647+t646+t644+t81*t83*t84*t185*t463-
        1025.38970210078*t81*t187*t411*t86*t412*t90*t413-3076.169106302339*
        t81*t128*t411*t86*t412*t90*t413-1025.38970210078*t81*t85*t411*
        t86*t412*t185*t413-3076.169106302339*t81*t85*t411*t86*t412*
        t122*t413+103.8945353962552*t81*t187*t411*t86*t416*t90*t246+
        311.6836061887656*t81*t128*t411*t86*t416*t90*t246-51.94726769812759*
        t81*t277*t244*t86*t245*t90*t246-51.9472676981276*t81*t187*
        t252*t109*t86*t245*t90*t246-155.8418030943828*t81*t128*t252*
        t109*t86*t245*t90*t246+1.926377843805565*t81*t1*t2*t3*t103*
        t187*t244*t245*t90*t246+5.779133531416695*t81*t1*t2*t3*t103*
        t128*t244*t245*t90*t246-51.94726769812759*t81*t85*t244*t86*
        t245*t267*t246+103.8945353962552*t81*t85*t411*t86*t416*t185*
        t246-51.9472676981276*t81*t85*t252*t109*t86*t245*t185*t246+
        1.926377843805565*t81*t1*t2*t3*t103*t85*t244*t245*t185*t246+
        311.6836061887656*t81*t85*t411*t86*t416*t122*t246-103.8945353962552*
        t81*t128*t244*t86*t245*t122*t246-155.8418030943828*t81*t85*
        t252*t109*t86*t245*t122*t246+5.779133531416695*t81*t1*t2*t3*
        t103*t85*t244*t245*t122*t246+t81*t83*t84*t445*t133+3.508934038473122*
        t81*t277*t244*t86*t249*t90*t111+3.508934038473122*t81*t187*
        t252*t109*t86*t249*t90*t111+10.52680211541937*t81*t128*t252*
        t109*t86*t249*t90*t111-0.130122970593378*t81*t1*t2*t3*t103*
        t187*t244*t249*t90*t111-0.390368911780135*t81*t1*t2*t3*t103*
        t128*t244*t249*t90*t111-3.508934038473122*t81*t187*t411*t86*
        t245*t90*t111-10.52680211541937*t81*t128*t411*t86*t245*t90*
        t111-0.58482233974552*t81*t187*t431*t86*t110*t90*t111-1.754467019236561*
        t81*t128*t431*t86*t110*t90*t111-1.754467019236561*t81*t277*
        t252*t86*t110*t90*t111-1.754467019236561*t81*t499*t109*t86*
        t110*t90*t111-0.58482233974552*t81*t456*t109*t86*t110*t90*
        t111+0.065061485296689*t81*t1*t2*t3*t103*t187*t252*t110*t90*
        t111+0.195184455890067*t81*t1*t2*t3*t103*t128*t252*t110*t90*
        t111+0.130122970593378*t81*t1*t2*t3*t103*t277*t109*t110*t90*
        t111-0.086748647062252*t81*t1*t2*t3*t240*t187*t109*t110*t90*
        t111-0.260245941186757*t81*t1*t2*t3*t240*t128*t109*t110*t90*
        t111-1.754467019236561*t81*t85*t109*t86*t110*t493*t111-0.58482233974552*
        t81*t85*t109*t86*t110*t445*t111-3.508934038473122*t81*t128*
        t109*t86*t110*t297*t111+3.508934038473122*t81*t85*t244*t86*
        t249*t267*t111-1.754467019236561*t81*t85*t252*t86*t110*t267*
        t111-1.754467019236561*t81*t187*t109*t86*t110*t267*t111-1.754467019236561*
        t81*t128*t109*t86*t110*t267*t111+0.130122970593378*t81*t1*
        t2*t3*t103*t85*t109*t110*t267*t111+3.508934038473122*t81*t85*
        t252*t109*t86*t249*t185*t111-0.130122970593378*t81*t1*t2*t3*
        t103*t85*t244*t249*t185*t111-3.508934038473122*t81*t85*t411*
        t86*t245*t185*t111-0.58482233974552*t81*t85*t431*t86*t110*
        t185*t111-1.754467019236561*t81*t277*t109*t86*t110*t185*t111+
        0.065061485296689*t81*t1*t2*t3*t103*t85*t252*t110*t185*t111-
        0.086748647062252*t81*t1*t2*t3*t240*t85*t109*t110*t185*t111+
        7.017868076946245*t81*t128*t244*t86*t249*t122*t111+10.52680211541937*
        t81*t85*t252*t109*t86*t249*t122*t111-0.390368911780135*t81*
        t1*t2*t3*t103*t85*t244*t249*t122*t111-10.52680211541937*t81*
        t85*t411*t86*t245*t122*t111-1.754467019236561*t81*t85*t431*
        t86*t110*t122*t111-3.508934038473122*t81*t128*t252*t86*t110*
        t122*t111-3.508934038473122*t81*t298*t109*t86*t110*t122*t111-
        1.754467019236561*t81*t277*t109*t86*t110*t122*t111+0.195184455890067*
        t81*t1*t2*t3*t103*t85*t252*t110*t122*t111-0.260245941186757*
        t81*t1*t2*t3*t240*t85*t109*t110*t122*t111+0.260245941186757*
        t81*t1*t2*t3*t103*t128*t109*t110*t122*t111)-48.0*t81*t82*t84*
        t90*t99+480.0*t127*t273*t81*t90*t99+3.0*t493*t81*t83*t84*t99+
        24.0*t127*t297*t81*t84*t99-36.0*t122*t275*t81*t84*t99+180.0*
        t122*t273*t81*t83*t99-24.0*t125*t267*t81*t83*t99-96.0*t125*
        t127*t185*t81*t99+0.059255369107696*t81*t499*t86*t90*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t277*t90*t93+0.008789546417642*t81*t1*t2*
        t3*t240*t128*t90*t93+0.059255369107696*t81*t85*t86*t493*t93+
        0.118510738215391*t81*t128*t86*t297*t93+0.059255369107696*
        t81*t187*t86*t267*t93-0.004394773208821*t81*t1*t2*t3*t103*
        t85*t267*t93+0.059255369107696*t81*t277*t86*t185*t93+0.118510738215391*
        t81*t298*t86*t122*t93+0.008789546417642*t81*t1*t2*t3*t240*
        t85*t122*t93-0.008789546417642*t81*t1*t2*t3*t103*t128*t122*
        t93+24.0*t127*t284*t81*t84*t90-192.0*t125*t127*t133*t81*t90+
        9.0*t122*t284*t81*t83*t84+6.0*t133*t267*t81*t83*t84+24.0*t127*
        t133*t185*t81*t84-72.0*t122*t125*t133*t81*t83+t730+t729+t728+
        t727+t726+t725+t724+t723+t722+t721+t639+t637+t636+t635+t634+
        t633+t632+t631+t630+t629+t628+t627+t626+t625+t624+t623+t622+
        t621+t620+t619+t618+t617+t616+t615+t614+t613+t571+t569+t566+
        t565+t562+t560+t552+t551+t550+t549+t548+t547+t546+t545+t473+
        t471+t468+t457+t449+t447+t446-155.8418030943828*t81*t128*t244*
        t86*t245*t90*t246-155.8418030943828*t81*t85*t244*t86*t245*
        t122*t246+10.52680211541937*t81*t128*t244*t86*t249*t90*t111-
        5.263401057709684*t81*t128*t252*t86*t110*t90*t111-3.508934038473122*
        t81*t277*t109*t86*t110*t90*t111+0.390368911780135*t81*t1*t2*
        t3*t103*t128*t109*t110*t90*t111-3.508934038473122*t81*t85*
        t109*t86*t110*t267*t111+10.52680211541937*t81*t85*t244*t86*
        t249*t122*t111-5.263401057709684*t81*t85*t252*t86*t110*t122*
        t111-7.017868076946245*t81*t128*t109*t86*t110*t122*t111+0.390368911780135*
        t81*t1*t2*t3*t103*t85*t109*t110*t122*t111)+3.0*t137*t507+3.0*
        t139*t506+t191*t478+3.0*t294*t301+3.0*t296*t300+t480*t190+
        (-0.028696291555556*t21*t58*t368*t67*t173+0.001381942613333*
        t21*t58*t368*t60*t65*t173+0.001479684096*t29*t58*t367*t65*
        t173-3.0926708736E-5*t21*t58*t368*t66*t63*t173-7.4338615296E-5*
        t29*t58*t367*t60*t63*t173-1.2239142912E-5*t26*t58*t366*t63*
        t173+2.81181745152E-7*t21*t58*t368*t64*t138*t173+1.3592453529599999E-6*
        t29*t58*t367*t66*t138*t173+5.457718149119999E-7*t26*t58*t366*
        t60*t138*t173-8.3503816704E-10*t21*t58*t368*t61*t295*t173-
        1.0093375733759999E-8*t29*t58*t367*t64*t295*t173-8.61302882304E-9*
        t26*t58*t366*t66*t295*t173+2.576689201152E-11*t29*t58*t367*
        t61*t479*t173+5.653685993472E-11*t26*t58*t366*t64*t479*t173-
        1.3117690478592E-13*t26*t58*t366*t61*t720*t173)*t148;
    d4fdrararaga = 3.0*t34*t50*t510*t54*t55*rhoa+3.0*t222*
        t304*t34*t50*t55*rhoa+t50*t375*t197*t34*t55*rhoa-6.0*t197*
        t220*t222*t34*t50*t54*rhoa+6.0*t197*t219*t34*t371*t50*rhoa-
        6.0*t218*t220*t304*t34*t50*rhoa-192.9880990672242*t217*t197*
        t371*t34*t373*rhoa+2069.133687865597*t370*t197*t371*t34*t372*
        rhoa-0.03109*t19*(19.12611555555556*grada*t32*t368-235.1038245925926*
        t196*t30*t367+731.1532335407409*t195*t27*t366-830.39030802963*
        t194*t24*t365+436.2914938880002*t192*t43*t364-116.0835633303704*
        t302*t209*t363+15.24521005511112*t508*t361*t362-0.786574140302223*
        t757*t597*t758)*t34*rhoa+96.4940495336121*t217*t197*t222*t54*
        t34*t219*rhoa+96.4940495336121*t217*t304*t218*t34*t219*rhoa-
        1.0*t3*t305*t35*t7+3.0*t197*t222*t34*t50*t55+6.0*t50*t304*
        t54*t34*t55-0.136986666666667*t1*t2*t3*t50*t197*t54*t55*t53+
        0.004258915466667*t1*t2*t3*t19*t304*t53-0.75*t3*t35*(0.150285748148148*
        grada*t40*t368-0.044556233007407*t196*t39*t367+7.183945879703701E-4*
        t195*t38*t366+3.659789774696296E-6*t194*t37*t365-1.2948019318328888E-7*
        t192*t56*t364+9.08988524013037E-10*t302*t223*t363-2.64355330275556E-12*
        t508*t376*t362+2.82462699884089E-15*t757*t612*t758)*t52+3.0*
        t137*t512-3.0*t11*t3*t35*t511+0.222222222222222*t198*t3*t35*
        t51-6.0*t197*t218*t220*t34*t50+t199*t478-0.09327*t19*t510*
        t34+3.0*t294*t306-0.001892851318519*t1*t2*t3*t19*t197*t221+
        96.4940495336121*t217*t197*t218*t34*t219+(-0.828725333333333*
        grada*t368*t68+0.038072085333333*grada*t368*t60*t67+0.095312682666667*
        t196*t367*t67-8.08024448E-4*grada*t368*t66*t65-0.00459002368*
        t196*t367*t60*t65-0.001916863488*t195*t366*t65+1.061520768E-5*
        grada*t368*t64*t63+1.0272085401600001E-4*t196*t367*t66*t63+
        9.630229708800001E-5*t195*t366*t60*t63+9.179357184E-6*t194*
        t365*t63-4.1751908352E-8*grada*t368*t61*t138-9.339250821119999E-7*
        t196*t367*t64*t138-1.7608405708799998E-6*t195*t366*t66*t138-
        4.09328861184E-7*t194*t365*t60*t138+2.77351962624E-9*t196*
        t367*t61*t295+1.3075509473279997E-8*t195*t366*t64*t295+6.459771617279999E-9*
        t194*t365*t66*t295-3.337983737856E-11*t195*t366*t61*t479-4.240264495104E-11*
        t194*t365*t64*t479+9.838267858944E-14*t194*t365*t61*t720)*
        t148-0.41096*t1*t2*t3*t50*t304*t54*t55*t12-0.20548*t1*t2*t3*
        t50*t197*t222*t55*t12+0.0063883732*t1*t2*t3*t19*t510*t12+0.41096*
        t1*t2*t3*t50*t197*t218*t220*t12-6.60919909938887*t1*t2*t3*
        t217*t197*t218*t219*t12;
    d4fdrararagb = 3.0*t137*t513+t207*t478+3.0*t294*t307+
        (0.021522218666667*t21*gradb*t368*t67*t59-0.00103645696*t21*
        gradb*t368*t60*t65*t59-0.001109763072*t29*gradb*t367*t65*t59+
        2.3195031552000003E-5*t21*gradb*t368*t66*t63*t59+5.5753961472E-5*
        t29*gradb*t367*t60*t63*t59+9.179357184E-6*t26*gradb*t366*t63*
        t59-2.10886308864E-7*t21*gradb*t368*t64*t138*t59-1.0194340147199999E-6*
        t29*gradb*t367*t66*t138*t59-4.09328861184E-7*t26*gradb*t366*
        t60*t138*t59+6.2627862528E-10*t21*gradb*t368*t61*t295*t59+
        7.57003180032E-9*t29*gradb*t367*t64*t295*t59+6.459771617279999E-9*
        t26*gradb*t366*t66*t295*t59-1.932516900864E-11*t29*gradb*t367*
        t61*t479*t59-4.240264495104E-11*t26*gradb*t366*t64*t479*t59+
        9.838267858944E-14*t26*gradb*t366*t61*t720*t59)*t148;
    d4fdrararaab = 0.0;
    d4fdrararbrb = t69*(t70*(-480.0*t273*t275*t81*t90*t99-
        48.0*t185*t81*t82*t84*t99+48.0*t122*t81*t82*t84*t99+8.0*t127*
        t514*t81*t84*t99-8.0*t127*t493*t81*t84*t99+12.0*t275*t331*
        t81*t84*t99-48.0*t275*t297*t81*t84*t99+12.0*t267*t275*t81*
        t84*t99-8.0*t125*t514*t81*t83*t99-8.0*t125*t493*t81*t83*t99-
        240.0*t185*t452*t81*t83*t99-240.0*t122*t452*t81*t83*t99+20.0*
        t273*t331*t81*t83*t99+80.0*t273*t297*t81*t83*t99+20.0*t267*
        t273*t81*t83*t99-32.0*t125*t127*t331*t81*t99+96.0*t125*t185*
        t275*t81*t99+96.0*t122*t125*t275*t81*t99+160.0*t127*t185*t273*
        t81*t99-160.0*t122*t127*t273*t81*t99+32.0*t125*t127*t267*t81*
        t99+t81*t83*t84*t761*t99+0.019751789702565*(t707+t703+480.0*
        t273*t275)*t81*t86*t90*t93-0.00146492440294*t81*t1*t2*t3*t103*
        t515*t90*t93-0.00146492440294*t81*t1*t2*t3*t103*t499*t90*t93+
        9.76616268626835E-4*t81*t1*t2*t3*t240*t336*t90*t93+0.003906465074507*
        t81*t1*t2*t3*t240*t298*t90*t93+9.76616268626835E-4*t81*t1*
        t2*t3*t240*t277*t90*t93-0.004557542586925*t81*t1*t2*t3*t407*
        t187*t90*t93-0.004557542586925*t81*t1*t2*t3*t407*t128*t90*
        t93+0.019751789702565*t81*t85*t86*t761*t93+0.03950357940513*
        t81*t128*t86*t514*t93-0.00146492440294*t81*t1*t2*t3*t103*t85*
        t514*t93+0.03950357940513*t81*t187*t86*t493*t93-0.00146492440294*
        t81*t1*t2*t3*t103*t85*t493*t93+0.019751789702565*t81*t277*
        t86*t331*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*t85*t331*
        t93-0.00146492440294*t81*t1*t2*t3*t103*t128*t331*t93+0.079007158810261*
        t81*t298*t86*t297*t93+0.003906465074507*t81*t1*t2*t3*t240*
        t85*t297*t93-0.002929848805881*t81*t1*t2*t3*t103*t187*t297*
        t93-0.002929848805881*t81*t1*t2*t3*t103*t128*t297*t93+0.019751789702565*
        t81*t336*t86*t267*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*
        t85*t267*t93-0.00146492440294*t81*t1*t2*t3*t103*t187*t267*
        t93+0.03950357940513*t81*t499*t86*t185*t93-0.004557542586925*
        t81*t1*t2*t3*t407*t85*t185*t93-0.002929848805881*t81*t1*t2*
        t3*t103*t298*t185*t93-0.00146492440294*t81*t1*t2*t3*t103*t277*
        t185*t93+0.001953232537254*t81*t1*t2*t3*t240*t187*t185*t93+
        0.003906465074507*t81*t1*t2*t3*t240*t128*t185*t93+0.03950357940513*
        t81*t515*t86*t122*t93-0.004557542586925*t81*t1*t2*t3*t407*
        t85*t122*t93-0.00146492440294*t81*t1*t2*t3*t103*t336*t122*
        t93-0.002929848805881*t81*t1*t2*t3*t103*t298*t122*t93+0.003906465074507*
        t81*t1*t2*t3*t240*t187*t122*t93+0.001953232537254*t81*t1*t2*
        t3*t240*t128*t122*t93-24.0*t275*t284*t81*t84*t90+192.0*t125*
        t133*t275*t81*t90+2.0*t133*t514*t81*t83*t84+2.0*t133*t493*
        t81*t83*t84+2.0*t185*t463*t81*t83*t84+2.0*t122*t463*t81*t83*
        t84+4.0*t284*t297*t81*t83*t84+8.0*t127*t133*t331*t81*t84+8.0*
        t127*t185*t284*t81*t84-8.0*t122*t127*t284*t81*t84-24.0*t133*
        t185*t275*t81*t84-24.0*t122*t133*t275*t81*t84-8.0*t127*t133*
        t267*t81*t84-8.0*t125*t133*t331*t81*t83-32.0*t125*t133*t297*
        t81*t83-24.0*t125*t185*t284*t81*t83-24.0*t122*t125*t284*t81*
        t83+120.0*t133*t185*t273*t81*t83+120.0*t122*t133*t273*t81*
        t83-8.0*t125*t133*t267*t81*t83-64.0*t125*t127*t133*t185*t81+
        64.0*t122*t125*t127*t133*t81+t719+t717+t715+t713+t712+t711+
        t705+t697+t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+
        t686+t685+t684+t682+t681+t680+t679+t678+t677+t676+t675+t674+
        t672+t666+t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+
        t655+t653+t652+t651+t650+t649+t648+t647+t646+t644-2050.77940420156*
        t81*t187*t411*t86*t412*t90*t413-2050.77940420156*t81*t128*
        t411*t86*t412*t90*t413-2050.77940420156*t81*t85*t411*t86*t412*
        t185*t413-2050.77940420156*t81*t85*t411*t86*t412*t122*t413+
        t81*t83*t84*t331*t284+t81*t83*t84*t267*t284+207.7890707925104*
        t81*t187*t411*t86*t416*t90*t246+207.7890707925104*t81*t128*
        t411*t86*t416*t90*t246-17.31575589937587*t81*t336*t244*t86*
        t245*t90*t246-69.26302359750346*t81*t298*t244*t86*t245*t90*
        t246-17.31575589937587*t81*t277*t244*t86*t245*t90*t246-103.8945353962552*
        t81*t187*t252*t109*t86*t245*t90*t246-103.8945353962552*t81*
        t128*t252*t109*t86*t245*t90*t246+3.85275568761113*t81*t1*t2*
        t3*t103*t187*t244*t245*t90*t246+3.85275568761113*t81*t1*t2*
        t3*t103*t128*t244*t245*t90*t246-17.31575589937587*t81*t85*
        t244*t86*t245*t331*t246-69.26302359750346*t81*t85*t244*t86*
        t245*t297*t246-17.31575589937587*t81*t85*t244*t86*t245*t267*
        t246+207.7890707925104*t81*t85*t411*t86*t416*t185*t246-34.63151179875173*
        t81*t187*t244*t86*t245*t185*t246-69.26302359750346*t81*t128*
        t244*t86*t245*t185*t246-103.8945353962552*t81*t85*t252*t109*
        t86*t245*t185*t246+3.85275568761113*t81*t1*t2*t3*t103*t85*
        t244*t245*t185*t246+207.7890707925104*t81*t85*t411*t86*t416*
        t122*t246-69.26302359750346*t81*t187*t244*t86*t245*t122*t246-
        34.63151179875173*t81*t128*t244*t86*t245*t122*t246-103.8945353962552*
        t81*t85*t252*t109*t86*t245*t122*t246+3.85275568761113*t81*
        t1*t2*t3*t103*t85*t244*t245*t122*t246+1.169644679491041*t81*
        t336*t244*t86*t249*t90*t111+4.678578717964164*t81*t298*t244*
        t86*t249*t90*t111+1.169644679491041*t81*t277*t244*t86*t249*
        t90*t111+7.017868076946245*t81*t187*t252*t109*t86*t249*t90*
        t111+7.017868076946245*t81*t128*t252*t109*t86*t249*t90*t111-
        0.260245941186757*t81*t1*t2*t3*t103*t187*t244*t249*t90*t111-
        0.260245941186757*t81*t1*t2*t3*t103*t128*t244*t249*t90*t111-
        7.017868076946245*t81*t187*t411*t86*t245*t90*t111-7.017868076946245*
        t81*t128*t411*t86*t245*t90*t111-1.169644679491041*t81*t187*
        t431*t86*t110*t90*t111-1.169644679491041*t81*t128*t431*t86*
        t110*t90*t111-0.58482233974552*t81*t336*t252*t86*t110*t90*
        t111-2.339289358982082*t81*t298*t252*t86*t110*t90*t111-0.58482233974552*
        t81*t277*t252*t86*t110*t90*t111-1.169644679491041*t81*t515*
        t109*t86*t110*t90*t111-1.169644679491041*t81*t499*t109*t86*
        t110*t90*t111+0.130122970593378*t81*t1*t2*t3*t103*t187*t252*
        t110*t90*t111+0.130122970593378*t81*t1*t2*t3*t103*t128*t252*
        t110*t90*t111+0.043374323531126*t81*t1*t2*t3*t103*t336*t109*
        t110*t90*t111+0.173497294124504*t81*t1*t2*t3*t103*t298*t109*
        t110*t90*t111+0.043374323531126*t81*t1*t2*t3*t103*t277*t109*
        t110*t90*t111-0.173497294124504*t81*t1*t2*t3*t240*t187*t109*
        t110*t90*t111-0.173497294124504*t81*t1*t2*t3*t240*t128*t109*
        t110*t90*t111-1.169644679491041*t81*t85*t109*t86*t110*t514*
        t111-1.169644679491041*t81*t85*t109*t86*t110*t493*t111+1.169644679491041*
        t81*t85*t244*t86*t249*t331*t111-0.58482233974552*t81*t85*t252*
        t86*t110*t331*t111-1.169644679491041*t81*t128*t109*t86*t110*
        t331*t111+0.043374323531126*t81*t1*t2*t3*t103*t85*t109*t110*
        t331*t111+4.678578717964164*t81*t85*t244*t86*t249*t297*t111-
        2.339289358982082*t81*t85*t252*t86*t110*t297*t111-2.339289358982082*
        t81*t187*t109*t86*t110*t297*t111-2.339289358982082*t81*t128*
        t109*t86*t110*t297*t111+0.173497294124504*t81*t1*t2*t3*t103*
        t85*t109*t110*t297*t111+1.169644679491041*t81*t85*t244*t86*
        t249*t267*t111-0.58482233974552*t81*t85*t252*t86*t110*t267*
        t111-1.169644679491041*t81*t187*t109*t86*t110*t267*t111+0.043374323531126*
        t81*t1*t2*t3*t103*t85*t109*t110*t267*t111+2.339289358982082*
        t81*t187*t244*t86*t249*t185*t111+4.678578717964164*t81*t128*
        t244*t86*t249*t185*t111+7.017868076946245*t81*t85*t252*t109*
        t86*t249*t185*t111-0.260245941186757*t81*t1*t2*t3*t103*t85*
        t244*t249*t185*t111-7.017868076946245*t81*t85*t411*t86*t245*
        t185*t111-1.169644679491041*t81*t85*t431*t86*t110*t185*t111-
        1.169644679491041*t81*t187*t252*t86*t110*t185*t111-2.339289358982082*
        t81*t128*t252*t86*t110*t185*t111-2.339289358982082*t81*t298*
        t109*t86*t110*t185*t111-1.169644679491041*t81*t277*t109*t86*
        t110*t185*t111+0.130122970593378*t81*t1*t2*t3*t103*t85*t252*
        t110*t185*t111-0.173497294124504*t81*t1*t2*t3*t240*t85*t109*
        t110*t185*t111+0.086748647062252*t81*t1*t2*t3*t103*t187*t109*
        t110*t185*t111+0.173497294124504*t81*t1*t2*t3*t103*t128*t109*
        t110*t185*t111+4.678578717964164*t81*t187*t244*t86*t249*t122*
        t111+2.339289358982082*t81*t128*t244*t86*t249*t122*t111+7.017868076946245*
        t81*t85*t252*t109*t86*t249*t122*t111-0.260245941186757*t81*
        t1*t2*t3*t103*t85*t244*t249*t122*t111-7.017868076946245*t81*
        t85*t411*t86*t245*t122*t111-1.169644679491041*t81*t85*t431*
        t86*t110*t122*t111-2.339289358982082*t81*t187*t252*t86*t110*
        t122*t111-1.169644679491041*t81*t128*t252*t86*t110*t122*t111-
        1.169644679491041*t81*t336*t109*t86*t110*t122*t111-2.339289358982082*
        t81*t298*t109*t86*t110*t122*t111+0.130122970593378*t81*t1*
        t2*t3*t103*t85*t252*t110*t122*t111-0.173497294124504*t81*t1*
        t2*t3*t240*t85*t109*t110*t122*t111+0.173497294124504*t81*t1*
        t2*t3*t103*t187*t109*t110*t122*t111+0.086748647062252*t81*
        t1*t2*t3*t103*t128*t109*t110*t122*t111)+192.0*t125*t275*t81*
        t90*t99+2.0*t514*t81*t83*t84*t99+2.0*t493*t81*t83*t84*t99+
        8.0*t127*t331*t81*t84*t99-8.0*t127*t267*t81*t84*t99-8.0*t125*
        t331*t81*t83*t99-32.0*t125*t297*t81*t83*t99+120.0*t185*t273*
        t81*t83*t99+120.0*t122*t273*t81*t83*t99-8.0*t125*t267*t81*
        t83*t99-64.0*t125*t127*t185*t81*t99+64.0*t122*t125*t127*t81*
        t99+0.03950357940513*t81*t515*t86*t90*t93+0.03950357940513*
        t81*t499*t86*t90*t93-0.00146492440294*t81*t1*t2*t3*t103*t336*
        t90*t93-0.005859697611761*t81*t1*t2*t3*t103*t298*t90*t93-0.00146492440294*
        t81*t1*t2*t3*t103*t277*t90*t93+0.005859697611761*t81*t1*t2*
        t3*t240*t187*t90*t93+0.005859697611761*t81*t1*t2*t3*t240*t128*
        t90*t93+0.03950357940513*t81*t85*t86*t514*t93+0.03950357940513*
        t81*t85*t86*t493*t93+0.03950357940513*t81*t128*t86*t331*t93-
        0.00146492440294*t81*t1*t2*t3*t103*t85*t331*t93+0.079007158810261*
        t81*t187*t86*t297*t93+0.079007158810261*t81*t128*t86*t297*
        t93-0.005859697611761*t81*t1*t2*t3*t103*t85*t297*t93+0.03950357940513*
        t81*t187*t86*t267*t93-0.00146492440294*t81*t1*t2*t3*t103*t85*
        t267*t93+0.079007158810261*t81*t298*t86*t185*t93+0.03950357940513*
        t81*t277*t86*t185*t93+0.005859697611761*t81*t1*t2*t3*t240*
        t85*t185*t93-0.002929848805881*t81*t1*t2*t3*t103*t187*t185*
        t93-0.005859697611761*t81*t1*t2*t3*t103*t128*t185*t93+0.03950357940513*
        t81*t336*t86*t122*t93+0.079007158810261*t81*t298*t86*t122*
        t93+0.005859697611761*t81*t1*t2*t3*t240*t85*t122*t93-0.005859697611761*
        t81*t1*t2*t3*t103*t187*t122*t93-0.002929848805881*t81*t1*t2*
        t3*t103*t128*t122*t93-48.0*t133*t275*t81*t84*t90+2.0*t133*
        t331*t81*t83*t84+8.0*t133*t297*t81*t83*t84+6.0*t185*t284*t81*
        t83*t84+6.0*t122*t284*t81*t83*t84+2.0*t133*t267*t81*t83*t84+
        16.0*t127*t133*t185*t81*t84-16.0*t122*t127*t133*t81*t84-48.0*
        t125*t133*t185*t81*t83-48.0*t122*t125*t133*t81*t83+t639+t637+
        t636+t635+t634+t633+t632+t631+t630+t629+t628+t627+t626+t625+
        t624+t623+t622+t621+t620+t619+t618+t617+t616+t615+t614+t613+
        t516+t503-103.8945353962552*t81*t187*t244*t86*t245*t90*t246-
        103.8945353962552*t81*t128*t244*t86*t245*t90*t246-103.8945353962552*
        t81*t85*t244*t86*t245*t185*t246-103.8945353962552*t81*t85*
        t244*t86*t245*t122*t246+7.017868076946245*t81*t187*t244*t86*
        t249*t90*t111+7.017868076946245*t81*t128*t244*t86*t249*t90*
        t111-3.508934038473122*t81*t187*t252*t86*t110*t90*t111-3.508934038473122*
        t81*t128*t252*t86*t110*t90*t111-1.169644679491041*t81*t336*
        t109*t86*t110*t90*t111-4.678578717964164*t81*t298*t109*t86*
        t110*t90*t111-1.169644679491041*t81*t277*t109*t86*t110*t90*
        t111+0.260245941186757*t81*t1*t2*t3*t103*t187*t109*t110*t90*
        t111+0.260245941186757*t81*t1*t2*t3*t103*t128*t109*t110*t90*
        t111-1.169644679491041*t81*t85*t109*t86*t110*t331*t111-4.678578717964164*
        t81*t85*t109*t86*t110*t297*t111-1.169644679491041*t81*t85*
        t109*t86*t110*t267*t111+7.017868076946245*t81*t85*t244*t86*
        t249*t185*t111-3.508934038473122*t81*t85*t252*t86*t110*t185*
        t111-2.339289358982082*t81*t187*t109*t86*t110*t185*t111-4.678578717964164*
        t81*t128*t109*t86*t110*t185*t111+0.260245941186757*t81*t1*
        t2*t3*t103*t85*t109*t110*t185*t111+7.017868076946245*t81*t85*
        t244*t86*t249*t122*t111-3.508934038473122*t81*t85*t252*t86*
        t110*t122*t111-4.678578717964164*t81*t187*t109*t86*t110*t122*
        t111-2.339289358982082*t81*t128*t109*t86*t110*t122*t111+0.260245941186757*
        t81*t1*t2*t3*t103*t85*t109*t110*t122*t111)+2.0*t137*t518+2.0*
        t139*t517+2.0*t190*t507+2.0*t191*t506+t296*t343+4.0*t300*t301+
        t344*t294+(-0.022547086222222*t21*t58*t215*t67*t315+0.001085812053333*
        t21*t58*t215*t60*t65*t315+4.932280319999999E-4*t29*t58*t214*
        t65*t315-2.4299556864E-5*t21*t58*t215*t66*t63*t315-2.4779538431999996E-5*
        t29*t58*t214*t60*t63*t315+2.2092851404799997E-7*t21*t58*t215*
        t64*t138*t315+4.5308178432E-7*t29*t58*t214*t66*t138*t315-6.5610141696E-10*
        t21*t58*t215*t61*t295*t315-3.364458577919999E-9*t29*t58*t214*
        t64*t295*t315+8.58896400384E-12*t29*t58*t214*t61*t479*t315+
        4.932280319999999E-4*t21*t156*t215*t65*t314-2.4779538431999996E-5*
        t21*t156*t215*t60*t63*t314-1.2239142912E-5*t29*t156*t214*t63*
        t314+4.5308178432E-7*t21*t156*t215*t66*t138*t314+5.457718149119999E-7*
        t29*t156*t214*t60*t138*t314-3.364458577919999E-9*t21*t156*
        t215*t64*t295*t314-8.61302882304E-9*t29*t156*t214*t66*t295*
        t314+8.58896400384E-12*t21*t156*t215*t61*t479*t314+5.653685993472E-11*
        t29*t156*t214*t64*t479*t314-1.3117690478592E-13*t29*t156*t214*
        t61*t720*t314)*t148;
    d4fdrararbga = 2.0*t137*t519+t199*t506+2.0*t300*t306+
        t345*t294+t512*t190+(0.012298410666667*grada*t58*t215*t67*
        t173-5.922611199999999E-4*grada*t58*t215*t60*t65*t173-9.079879679999999E-4*
        t196*t58*t214*t65*t173+1.3254303744E-5*grada*t58*t215*t66*
        t63*t173+4.5616877568E-5*t196*t58*t214*t60*t63*t173+9.179357184E-6*
        t195*t58*t213*t63*t173-1.20506462208E-7*grada*t58*t215*t64*
        t138*t173-8.3408237568E-7*t196*t58*t214*t66*t138*t173-4.09328861184E-7*
        t195*t58*t213*t60*t138*t173+3.5787350016E-10*grada*t58*t215*
        t61*t295*t173+6.19366238208E-9*t196*t58*t214*t64*t295*t173+
        6.459771617279999E-9*t195*t58*t213*t66*t295*t173-1.581150191616E-11*
        t196*t58*t214*t61*t479*t173-4.240264495104E-11*t195*t58*t213*
        t64*t479*t173+9.838267858944E-14*t195*t58*t213*t61*t720*t173)*
        t148;
    d4fdrararbgb = 2.0*t137*t520+t207*t506+2.0*t300*t307+
        t350*t294+t513*t190+(0.012298410666667*t21*gradb*t215*t67*
        t173-5.922611199999999E-4*t21*gradb*t215*t60*t65*t173-2.69033472E-4*
        t29*gradb*t214*t65*t173+1.3254303744E-5*t21*gradb*t215*t66*
        t63*t173+1.3516111871999998E-5*t29*gradb*t214*t60*t63*t173-
        1.20506462208E-7*t21*gradb*t215*t64*t138*t173-2.4713551872E-7*
        t29*gradb*t214*t66*t138*t173+3.5787350016E-10*t21*gradb*t215*
        t61*t295*t173+1.83515922432E-9*t29*gradb*t214*t64*t295*t173-
        4.68488945664E-12*t29*gradb*t214*t61*t479*t173-3.69921024E-4*
        t21*t204*t215*t65*t172+1.8584653824E-5*t21*t204*t215*t60*t63*
        t172+9.179357184E-6*t29*t204*t214*t63*t172-3.3981133824E-7*
        t21*t204*t215*t66*t138*t172-4.09328861184E-7*t29*t204*t214*
        t60*t138*t172+2.52334393344E-9*t21*t204*t215*t64*t295*t172+
        6.459771617279999E-9*t29*t204*t214*t66*t295*t172-6.44172300288E-12*
        t21*t204*t215*t61*t479*t172-4.240264495104E-11*t29*t204*t214*
        t64*t479*t172+9.838267858944E-14*t29*t204*t214*t61*t720*t172)*
        t148;
    d4fdrararbab = 0.0;
    d4fdraragaga = 2.0*t34*t50*t522*t54*t55*rhoa+t50*t352*
        t222*t34*t55*rhoa-2.0*t218*t220*t34*t352*t50*rhoa-0.03109*
        t19*(-4.098453333333334*t32*t215+96.92401066666667*t21*t30*
        t214-374.0463616000001*t29*t27*t213+480.9190940444446*t26*
        t24*t212-275.8230785137779*t20*t43*t211+78.55410972444449*
        t42*t209*t210-10.90718378666667*t208*t361*t509+0.589930605226667*
        t360*t597*t762)*t34*rhoa+32.1646831778707*t217*t352*t218*t34*
        t219*rhoa-0.333333333333333*t3*t35*t353*t7+2.0*t34*t352*t50*
        t54*t55+0.001419638488889*t1*t2*t3*t19*t352*t53+2.0*t137*t524-
        2.0*t11*t3*t35*t523-0.75*(-0.032204088888889*t40*t215+0.018344655644444*
        t21*t39*t214-3.913520014222221E-4*t29*t38*t213-1.6500254492444446E-6*
        t26*t37*t212+7.904569080035555E-8*t20*t56*t211-6.09017295303111E-10*
        t42*t223*t210+1.88809041237333E-12*t208*t376*t509-2.11847024913067E-15*
        t360*t612*t762)*t3*t35*t52-0.06218*t19*t522*t34+t354*t294+
        (0.177584*t215*t68-0.008158304*t215*t60*t67-0.043184192*t21*
        t214*t67+1.73148096E-4*t215*t66*t65+0.00207964416*t21*t214*
        t60*t65+0.001185428736*t29*t213*t65-2.27468736E-6*t215*t64*
        t63-4.654068019199999E-5*t21*t214*t66*t63-5.955536793600001E-5*
        t29*t213*t60*t63-6.884517888E-6*t26*t212*t63+8.946837503999999E-9*
        t215*t61*t138+4.23142009344E-7*t21*t214*t64*t138+1.08894087936E-6*
        t29*t213*t66*t138+3.06996645888E-7*t26*t212*t60*t138-1.25662399488E-9*
        t21*t214*t61*t295-8.08617033216E-9*t29*t213*t64*t295-4.844828712959999E-9*
        t26*t212*t66*t295+2.064279416832E-11*t29*t213*t61*t479+3.180198371328E-11*
        t26*t212*t64*t479-7.378700894208E-14*t26*t212*t61*t720)*t148-
        0.136986666666667*t1*t2*t3*t50*t352*t54*t55*t12+0.004258915466667*
        t1*t2*t3*t19*t522*t12;
    d4fdraragagb = 2.0*t137*t525+t355*t294+(-0.009223808*
        grada*gradb*t215*t67*t59+4.4419584E-4*grada*gradb*t215*t60*
        t65*t59+6.809909759999999E-4*t196*gradb*t214*t65*t59-9.940727808E-6*
        grada*gradb*t215*t66*t63*t59-3.4212658176E-5*t196*gradb*t214*
        t60*t63*t59-6.884517888E-6*t195*gradb*t213*t63*t59+9.0379846656E-8*
        grada*gradb*t215*t64*t138*t59+6.2556178176E-7*t196*gradb*t214*
        t66*t138*t59+3.06996645888E-7*t195*gradb*t213*t60*t138*t59-
        2.6840512512E-10*grada*gradb*t215*t61*t295*t59-4.64524678656E-9*
        t196*gradb*t214*t64*t295*t59-4.844828712959999E-9*t195*gradb*
        t213*t66*t295*t59+1.185862643712E-11*t196*gradb*t214*t61*t479*
        t59+3.180198371328E-11*t195*gradb*t213*t64*t479*t59-7.378700894208E-14*
        t195*gradb*t213*t61*t720*t59)*t148;
    d4fdraragaab = 0.0;
    d4fdraragbgb = 2.0*t137*t526+t359*t294+(-0.004611904*
        t21*t215*t67*t59+2.2209792E-4*t21*t215*t60*t65*t59+1.0088755199999999E-4*
        t29*t214*t65*t59-4.970363904E-6*t21*t215*t66*t63*t59-5.068541952E-6*
        t29*t214*t60*t63*t59+4.5189923328E-8*t21*t215*t64*t138*t59+
        9.267581951999999E-8*t29*t214*t66*t138*t59-1.3420256256E-10*
        t21*t215*t61*t295*t59-6.8818470912E-10*t29*t214*t64*t295*t59+
        1.75683354624E-12*t29*t214*t61*t479*t59+2.77440768E-4*t21*
        t58*t215*t65*t158-1.3938490368000001E-5*t21*t58*t215*t60*t63*
        t158-6.884517888E-6*t29*t58*t214*t63*t158+2.5485850368E-7*
        t21*t58*t215*t66*t138*t158+3.06996645888E-7*t29*t58*t214*t60*
        t138*t158-1.89250795008E-9*t21*t58*t215*t64*t295*t158-4.844828712959999E-9*
        t29*t58*t214*t66*t295*t158+4.83129225216E-12*t21*t58*t215*
        t61*t479*t158+3.180198371328E-11*t29*t58*t214*t64*t479*t158-
        7.378700894208E-14*t29*t58*t214*t61*t720*t158)*t148;
    d4fdraragbab = 0.0;
    d4fdraraabab = 0.0;
    d4fdrarbrbrb = t69*(t70*(-192.0*t125*t81*t82*t90*t99+
        960.0*t127*t452*t81*t90*t99+72.0*t185*t81*t82*t84*t99-24.0*
        t122*t81*t82*t84*t99+4.0*t127*t557*t81*t84*t99-12.0*t127*t514*
        t81*t84*t99-36.0*t275*t331*t81*t84*t99-4.0*t125*t557*t81*t83*
        t99-12.0*t125*t514*t81*t83*t99-360.0*t185*t452*t81*t83*t99-
        120.0*t122*t452*t81*t83*t99+60.0*t273*t331*t81*t83*t99+96.0*
        t125*t127*t297*t81*t99+144.0*t125*t185*t275*t81*t99-144.0*
        t122*t125*t275*t81*t99-240.0*t127*t185*t273*t81*t99-240.0*
        t122*t127*t273*t81*t99+t81*t83*t84*t763*t99+0.019751789702565*
        t81*(192.0*t125*t82+t707+t700-960.0*t127*t452)*t86*t90*t93-
        7.324622014701263E-4*t81*t1*t2*t3*t103*t563*t90*t93-0.00219738660441*
        t81*t1*t2*t3*t103*t515*t90*t93+0.002929848805881*t81*t1*t2*
        t3*t240*t336*t90*t93-0.006836313880388*t81*t1*t2*t3*t407*t187*
        t90*t93-0.002278771293463*t81*t1*t2*t3*t407*t128*t90*t93+0.019751789702565*
        t81*t85*t86*t763*t93+0.019751789702565*t81*t128*t86*t557*t93-
        7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t557*t93+0.059255369107696*
        t81*t187*t86*t514*t93-0.00219738660441*t81*t1*t2*t3*t103*t85*
        t514*t93+0.059255369107696*t81*t298*t86*t331*t93+0.002929848805881*
        t81*t1*t2*t3*t240*t85*t331*t93-0.00219738660441*t81*t1*t2*
        t3*t103*t187*t331*t93-0.00219738660441*t81*t1*t2*t3*t103*t128*
        t331*t93+0.059255369107696*t81*t336*t86*t297*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t187*t297*t93+0.059255369107696*t81*t515*
        t86*t185*t93-0.006836313880388*t81*t1*t2*t3*t407*t85*t185*
        t93-0.00219738660441*t81*t1*t2*t3*t103*t336*t185*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t298*t185*t93+0.005859697611761*t81*t1*t2*
        t3*t240*t187*t185*t93+0.019751789702565*t81*t563*t86*t122*
        t93-0.002278771293463*t81*t1*t2*t3*t407*t85*t122*t93-0.00219738660441*
        t81*t1*t2*t3*t103*t336*t122*t93+48.0*t133*t81*t82*t84*t90-
        8.0*t127*t463*t81*t84*t90+96.0*t125*t127*t284*t81*t90-480.0*
        t127*t133*t273*t81*t90+3.0*t133*t514*t81*t83*t84+3.0*t185*
        t463*t81*t83*t84+3.0*t284*t331*t81*t83*t84-24.0*t127*t133*
        t297*t81*t84-12.0*t127*t185*t284*t81*t84-12.0*t122*t127*t284*
        t81*t84-36.0*t133*t185*t275*t81*t84+36.0*t122*t133*t275*t81*
        t84-24.0*t125*t133*t331*t81*t83-36.0*t125*t185*t284*t81*t83-
        12.0*t122*t125*t284*t81*t83+180.0*t133*t185*t273*t81*t83+60.0*
        t122*t133*t273*t81*t83+96.0*t125*t127*t133*t185*t81+96.0*t122*
        t125*t127*t133*t81+t756+t755+t754+t753+t752+t751+t750+t749+
        t747+t746+t745+t744+t743+t742+t741+t740+t739+t738+t737+t736+
        t735+t734+t733+t732+t731+t717+t715+t713+t712+t711+t705+t697+
        t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+t686+t685+
        t684+t682+t681+t680+t679+t678+t677+t676+t675+t674+t672+t666+
        t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+t655+t653+
        t652+t651+t650+t649+t648+t647+t646+t644+t81*t83*t84*t122*t463-
        3076.169106302339*t81*t187*t411*t86*t412*t90*t413-1025.38970210078*
        t81*t128*t411*t86*t412*t90*t413-3076.169106302339*t81*t85*
        t411*t86*t412*t185*t413-1025.38970210078*t81*t85*t411*t86*
        t412*t122*t413+311.6836061887656*t81*t187*t411*t86*t416*t90*
        t246+103.8945353962552*t81*t128*t411*t86*t416*t90*t246-51.9472676981276*
        t81*t336*t244*t86*t245*t90*t246-155.8418030943828*t81*t187*
        t252*t109*t86*t245*t90*t246-51.9472676981276*t81*t128*t252*
        t109*t86*t245*t90*t246+5.779133531416695*t81*t1*t2*t3*t103*
        t187*t244*t245*t90*t246+1.926377843805565*t81*t1*t2*t3*t103*
        t128*t244*t245*t90*t246-51.9472676981276*t81*t85*t244*t86*
        t245*t331*t246+311.6836061887656*t81*t85*t411*t86*t416*t185*
        t246-103.8945353962552*t81*t187*t244*t86*t245*t185*t246-155.8418030943828*
        t81*t85*t252*t109*t86*t245*t185*t246+5.779133531416695*t81*
        t1*t2*t3*t103*t85*t244*t245*t185*t246+103.8945353962552*t81*
        t85*t411*t86*t416*t122*t246-51.9472676981276*t81*t85*t252*
        t109*t86*t245*t122*t246+1.926377843805565*t81*t1*t2*t3*t103*
        t85*t244*t245*t122*t246+t81*t83*t84*t557*t133+3.508934038473122*
        t81*t336*t244*t86*t249*t90*t111+10.52680211541937*t81*t187*
        t252*t109*t86*t249*t90*t111+3.508934038473122*t81*t128*t252*
        t109*t86*t249*t90*t111-0.390368911780135*t81*t1*t2*t3*t103*
        t187*t244*t249*t90*t111-0.130122970593378*t81*t1*t2*t3*t103*
        t128*t244*t249*t90*t111-10.52680211541937*t81*t187*t411*t86*
        t245*t90*t111-3.508934038473122*t81*t128*t411*t86*t245*t90*
        t111-1.754467019236561*t81*t187*t431*t86*t110*t90*t111-0.58482233974552*
        t81*t128*t431*t86*t110*t90*t111-1.754467019236561*t81*t336*
        t252*t86*t110*t90*t111-0.58482233974552*t81*t563*t109*t86*
        t110*t90*t111-1.754467019236561*t81*t515*t109*t86*t110*t90*
        t111+0.195184455890067*t81*t1*t2*t3*t103*t187*t252*t110*t90*
        t111+0.065061485296689*t81*t1*t2*t3*t103*t128*t252*t110*t90*
        t111+0.130122970593378*t81*t1*t2*t3*t103*t336*t109*t110*t90*
        t111-0.260245941186757*t81*t1*t2*t3*t240*t187*t109*t110*t90*
        t111-0.086748647062252*t81*t1*t2*t3*t240*t128*t109*t110*t90*
        t111-0.58482233974552*t81*t85*t109*t86*t110*t557*t111-1.754467019236561*
        t81*t85*t109*t86*t110*t514*t111+3.508934038473122*t81*t85*
        t244*t86*t249*t331*t111-1.754467019236561*t81*t85*t252*t86*
        t110*t331*t111-1.754467019236561*t81*t187*t109*t86*t110*t331*
        t111-1.754467019236561*t81*t128*t109*t86*t110*t331*t111+0.130122970593378*
        t81*t1*t2*t3*t103*t85*t109*t110*t331*t111-3.508934038473122*
        t81*t187*t109*t86*t110*t297*t111+7.017868076946245*t81*t187*
        t244*t86*t249*t185*t111+10.52680211541937*t81*t85*t252*t109*
        t86*t249*t185*t111-0.390368911780135*t81*t1*t2*t3*t103*t85*
        t244*t249*t185*t111-10.52680211541937*t81*t85*t411*t86*t245*
        t185*t111-1.754467019236561*t81*t85*t431*t86*t110*t185*t111-
        3.508934038473122*t81*t187*t252*t86*t110*t185*t111-1.754467019236561*
        t81*t336*t109*t86*t110*t185*t111-3.508934038473122*t81*t298*
        t109*t86*t110*t185*t111+0.195184455890067*t81*t1*t2*t3*t103*
        t85*t252*t110*t185*t111-0.260245941186757*t81*t1*t2*t3*t240*
        t85*t109*t110*t185*t111+0.260245941186757*t81*t1*t2*t3*t103*
        t187*t109*t110*t185*t111+3.508934038473122*t81*t85*t252*t109*
        t86*t249*t122*t111-0.130122970593378*t81*t1*t2*t3*t103*t85*
        t244*t249*t122*t111-3.508934038473122*t81*t85*t411*t86*t245*
        t122*t111-0.58482233974552*t81*t85*t431*t86*t110*t122*t111-
        1.754467019236561*t81*t336*t109*t86*t110*t122*t111+0.065061485296689*
        t81*t1*t2*t3*t103*t85*t252*t110*t122*t111-0.086748647062252*
        t81*t1*t2*t3*t240*t85*t109*t110*t122*t111)+48.0*t81*t82*t84*
        t90*t99-480.0*t127*t273*t81*t90*t99+3.0*t514*t81*t83*t84*t99-
        24.0*t127*t297*t81*t84*t99-36.0*t185*t275*t81*t84*t99-24.0*
        t125*t331*t81*t83*t99+180.0*t185*t273*t81*t83*t99+96.0*t122*
        t125*t127*t81*t99+0.059255369107696*t81*t515*t86*t90*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t336*t90*t93+0.008789546417642*t81*t1*t2*
        t3*t240*t187*t90*t93+0.059255369107696*t81*t85*t86*t514*t93+
        0.059255369107696*t81*t128*t86*t331*t93-0.004394773208821*
        t81*t1*t2*t3*t103*t85*t331*t93+0.118510738215391*t81*t187*
        t86*t297*t93+0.118510738215391*t81*t298*t86*t185*t93+0.008789546417642*
        t81*t1*t2*t3*t240*t85*t185*t93-0.008789546417642*t81*t1*t2*
        t3*t103*t187*t185*t93+0.059255369107696*t81*t336*t86*t122*
        t93-24.0*t127*t284*t81*t84*t90+192.0*t125*t127*t133*t81*t90+
        6.0*t133*t331*t81*t83*t84+9.0*t185*t284*t81*t83*t84-24.0*t122*
        t127*t133*t81*t84-72.0*t125*t133*t185*t81*t83+t730+t729+t728+
        t727+t726+t725+t724+t723+t722+t721+t639+t637+t636+t635+t634+
        t633+t632+t631+t630+t629+t628+t627+t626+t625+t624+t623+t622+
        t621+t620+t619+t618+t617+t616+t615+t614+t613+t570+t568+t567+
        t564+t561+t559+t558+t474+t472+t467+t465+t450+t448+t433+t429+
        t427+t423+t422+t421+t420+t415-155.8418030943828*t81*t187*t244*
        t86*t245*t90*t246-155.8418030943828*t81*t85*t244*t86*t245*
        t185*t246+10.52680211541937*t81*t187*t244*t86*t249*t90*t111-
        5.263401057709684*t81*t187*t252*t86*t110*t90*t111-3.508934038473123*
        t81*t336*t109*t86*t110*t90*t111+0.390368911780135*t81*t1*t2*
        t3*t103*t187*t109*t110*t90*t111-3.508934038473123*t81*t85*
        t109*t86*t110*t331*t111+10.52680211541937*t81*t85*t244*t86*
        t249*t185*t111-5.263401057709684*t81*t85*t252*t86*t110*t185*
        t111-7.017868076946246*t81*t187*t109*t86*t110*t185*t111+0.390368911780135*
        t81*t1*t2*t3*t103*t85*t109*t110*t185*t111)+t139*t572+3.0*t190*
        t518+3.0*t191*t517+3.0*t300*t344+3.0*t301*t343+(-0.028696291555556*
        t21*t58*t48*t67*t535+0.001381942613333*t21*t58*t48*t60*t65*
        t535-3.0926708736E-5*t21*t58*t48*t66*t63*t535+2.81181745152E-7*
        t21*t58*t48*t64*t138*t535-8.3503816704E-10*t21*t58*t48*t61*
        t295*t535+0.001479684096*t21*t156*t48*t65*t534-7.433861529599999E-5*
        t21*t156*t48*t60*t63*t534+1.3592453529599999E-6*t21*t156*t48*
        t66*t138*t534-1.0093375733759997E-8*t21*t156*t48*t64*t295*
        t534+2.576689201152E-11*t21*t156*t48*t61*t479*t534-1.2239142912E-5*
        t21*t153*t48*t63*t533+5.457718149119999E-7*t21*t153*t48*t60*
        t138*t533-8.61302882304E-9*t21*t153*t48*t66*t295*t533+5.653685993472E-11*
        t21*t153*t48*t64*t479*t533-1.3117690478592E-13*t21*t153*t48*
        t61*t720*t533)*t148+t573*t137;
    d4fdrarbrbga = 2.0*t190*t519+t199*t517+2.0*t300*t345+
        t306*t343+(0.012298410666667*grada*t58*t48*t67*t315-5.922611199999999E-4*
        grada*t58*t48*t60*t65*t315-3.69921024E-4*t196*t58*t47*t65*
        t315+1.3254303744E-5*grada*t58*t48*t66*t63*t315+1.8584653824E-5*
        t196*t58*t47*t60*t63*t315-1.2050646220799997E-7*grada*t58*
        t48*t64*t138*t315-3.3981133824E-7*t196*t58*t47*t66*t138*t315+
        3.5787350016E-10*grada*t58*t48*t61*t295*t315+2.523343933439999E-9*
        t196*t58*t47*t64*t295*t315-6.44172300288E-12*t196*t58*t47*
        t61*t479*t315-2.69033472E-4*grada*t156*t48*t65*t314+1.3516111871999998E-5*
        grada*t156*t48*t60*t63*t314+9.179357184E-6*t196*t156*t47*t63*
        t314-2.4713551872E-7*grada*t156*t48*t66*t138*t314-4.09328861184E-7*
        t196*t156*t47*t60*t138*t314+1.83515922432E-9*grada*t156*t48*
        t64*t295*t314+6.459771617279999E-9*t196*t156*t47*t66*t295*
        t314-4.68488945664E-12*grada*t156*t48*t61*t479*t314-4.240264495104E-11*
        t196*t156*t47*t64*t479*t314+9.838267858944E-14*t196*t156*t47*
        t61*t720*t314)*t148+t574*t137;
    d4fdrarbrbgb = 2.0*t190*t520+t207*t517+2.0*t300*t350+
        t307*t343+(0.012298410666667*t21*gradb*t48*t67*t315-5.922611199999999E-4*
        t21*gradb*t48*t60*t65*t315+1.3254303744E-5*t21*gradb*t48*t66*
        t63*t315-1.2050646220799997E-7*t21*gradb*t48*t64*t138*t315+
        3.5787350016E-10*t21*gradb*t48*t61*t295*t315-9.079879679999999E-4*
        t21*t204*t48*t65*t314+4.5616877568E-5*t21*t204*t48*t60*t63*
        t314-8.3408237568E-7*t21*t204*t48*t66*t138*t314+6.193662382079999E-9*
        t21*t204*t48*t64*t295*t314-1.581150191616E-11*t21*t204*t48*
        t61*t479*t314+9.179357184E-6*t21*t203*t48*t63*t313-4.09328861184E-7*
        t21*t203*t48*t60*t138*t313+6.459771617279999E-9*t21*t203*t48*
        t66*t295*t313-4.240264495104E-11*t21*t203*t48*t64*t479*t313+
        9.838267858944E-14*t21*t203*t48*t61*t720*t313)*t148+t579*t137;
    d4fdrarbrbab = 0.0;
    d4fdrarbgaga = (-
        0.003354112*t58*t48*t67*t173+1.6152575999999998E-4*t58*t48*
        t60*t65*t173+5.044377599999999E-4*t21*t58*t47*t65*t173-3.614810112E-6*
        t58*t48*t66*t63*t173-2.5342709760000002E-5*t21*t58*t47*t60*
        t63*t173-6.884517888E-6*t29*t58*t46*t63*t173+3.2865398784E-8*
        t58*t48*t64*t138*t173+4.633790975999999E-7*t21*t58*t47*t66*
        t138*t173+3.06996645888E-7*t29*t58*t46*t60*t138*t173-9.760186368E-11*
        t58*t48*t61*t295*t173-3.4409235456E-9*t21*t58*t47*t64*t295*
        t173-4.844828712959999E-9*t29*t58*t46*t66*t295*t173+8.7841677312E-12*
        t21*t58*t47*t61*t479*t173+3.180198371328E-11*t29*t58*t46*t64*
        t479*t173-7.378700894208E-14*t29*t58*t46*t61*t720*t173)*t148+
        t580*t137+t524*t190+t354*t300;
    d4fdrarbgagb = (-0.006708224*grada*gradb*t48*t67*t173+
        3.2305152E-4*grada*gradb*t48*t60*t65*t173+2.0177510399999998E-4*
        t196*gradb*t47*t65*t173-7.229620224E-6*grada*gradb*t48*t66*
        t63*t173-1.0137083904E-5*t196*gradb*t47*t60*t63*t173+6.573079756799999E-8*
        grada*gradb*t48*t64*t138*t173+1.8535163903999998E-7*t196*gradb*
        t47*t66*t138*t173-1.9520372736E-10*grada*gradb*t48*t61*t295*
        t173-1.37636941824E-9*t196*gradb*t47*t64*t295*t173+3.51366709248E-12*
        t196*gradb*t47*t61*t479*t173+2.0177510399999998E-4*grada*t204*
        t48*t65*t172-1.0137083904E-5*grada*t204*t48*t60*t63*t172-6.884517888E-6*
        t196*t204*t47*t63*t172+1.8535163903999998E-7*grada*t204*t48*
        t66*t138*t172+3.06996645888E-7*t196*t204*t47*t60*t138*t172-
        1.37636941824E-9*grada*t204*t48*t64*t295*t172-4.844828712959999E-9*
        t196*t204*t47*t66*t295*t172+3.51366709248E-12*grada*t204*t48*
        t61*t479*t172+3.180198371328E-11*t196*t204*t47*t64*t479*t172-
        7.378700894208E-14*t196*t204*t47*t61*t720*t172)*t148+t581*
        t137+t525*t190+t355*t300;
    d4fdrarbgaab = 0.0;
    d4fdrarbgbgb = (-0.003354112*t21*t48*t67*t173+1.6152575999999998E-4*
        t21*t48*t60*t65*t173-3.614810112E-6*t21*t48*t66*t63*t173+3.2865398784E-8*
        t21*t48*t64*t138*t173-9.760186368E-11*t21*t48*t61*t295*t173+
        5.044377599999999E-4*t21*t58*t48*t65*t172-2.5342709760000002E-5*
        t21*t58*t48*t60*t63*t172+4.633790975999999E-7*t21*t58*t48*
        t66*t138*t172-3.4409235456E-9*t21*t58*t48*t64*t295*t172+8.7841677312E-12*
        t21*t58*t48*t61*t479*t172-6.884517888E-6*t21*t156*t48*t63*
        t171+3.06996645888E-7*t21*t156*t48*t60*t138*t171-4.844828712959999E-9*
        t21*t156*t48*t66*t295*t171+3.180198371328E-11*t21*t156*t48*
        t64*t479*t171-7.378700894208E-14*t21*t156*t48*t61*t720*t171)*
        t148+t585*t137+t526*t190+t359*t300;
    d4fdrarbgbab = 0.0;
    d4fdrarbabab = 0.0;
    d4fdragagaga = t50*t587*t54*t34*t55*rhoa-0.03109*t19*
        (-30.866432*grada*t30*t47+171.2000512*t196*t27*t46-262.3242956800001*
        t195*t24*t45+168.5881405440001*t194*t43*t44-52.21287526400003*
        t192*t209*t303+7.745840742400006*t302*t361*t521-0.44244795392*
        t508*t597*t764)*t34*rhoa-1.0*t11*t3*t35*t588-0.75*t3*t35*(-
        0.005833728*grada*t39*t47+1.9271884799999995E-4*t196*t38*t46+
        5.721178112000008E-7*t195*t37*t45-4.609925447680001E-8*t194*
        t56*t44+3.99610216448E-10*t192*t223*t303-1.338043793408E-12*
        t302*t376*t521+1.588852686848E-15*t508*t612*t764)*t52-0.03109*
        t19*t587*t34+(0.015093504*grada*t47*t67-7.2686592E-4*grada*
        t47*t60*t65-6.809909760000001E-4*t196*t46*t65+1.6266645504E-5*
        grada*t47*t66*t63+3.4212658176E-5*t196*t46*t60*t63+5.163388416E-6*
        t195*t45*t63-1.47894294528E-7*grada*t47*t64*t138-6.255617817599999E-7*
        t196*t46*t66*t138-2.3024748441599998E-7*t195*t45*t60*t138+
        4.3920838656E-10*grada*t47*t61*t295+4.64524678656E-9*t196*
        t46*t64*t295+3.633621534719999E-9*t195*t45*t66*t295-1.185862643712E-11*
        t196*t46*t61*t479-2.385148778496E-11*t195*t45*t64*t479+5.534025670656E-14*
        t195*t45*t61*t720)*t148+t589*t137+0.002129457733333*t1*t2*
        t3*t19*t587*t12;
    d4fdragagagb = (0.002515584*gradb*t48*t67*t59-1.2114432E-4*
        gradb*t48*t60*t65*t59-3.7832832E-4*t21*gradb*t47*t65*t59+2.711107584E-6*
        gradb*t48*t66*t63*t59+1.900703232E-5*t21*gradb*t47*t60*t63*
        t59+5.163388416E-6*t29*gradb*t46*t63*t59-2.4649049087999997E-8*
        gradb*t48*t64*t138*t59-3.475343232E-7*t21*gradb*t47*t66*t138*
        t59-2.3024748441599998E-7*t29*gradb*t46*t60*t138*t59+7.320139776E-11*
        gradb*t48*t61*t295*t59+2.5806926592E-9*t21*gradb*t47*t64*t295*
        t59+3.633621534719999E-9*t29*gradb*t46*t66*t295*t59-6.5881257984E-12*
        t21*gradb*t47*t61*t479*t59-2.385148778496E-11*t29*gradb*t46*
        t64*t479*t59+5.534025670656E-14*t29*gradb*t46*t61*t720*t59)*
        t148+t590*t137;
    d4fdragagaab = 0.0;
    d4fdragagbgb = (0.002515584*grada*t48*t67*t59-1.2114432E-4*
        grada*t48*t60*t65*t59-7.5665664E-5*t196*t47*t65*t59+2.711107584E-6*
        grada*t48*t66*t63*t59+3.801406464E-6*t196*t47*t60*t63*t59-
        2.4649049087999997E-8*grada*t48*t64*t138*t59-6.950686463999999E-8*
        t196*t47*t66*t138*t59+7.320139776E-11*grada*t48*t61*t295*t59+
        5.1613853184E-10*t196*t47*t64*t295*t59-1.31762515968E-12*t196*
        t47*t61*t479*t59-1.51331328E-4*grada*t58*t48*t65*t158+7.602812928E-6*
        grada*t58*t48*t60*t63*t158+5.163388416E-6*t196*t58*t47*t63*
        t158-1.3901372927999998E-7*grada*t58*t48*t66*t138*t158-2.3024748441599998E-7*
        t196*t58*t47*t60*t138*t158+1.03227706368E-9*grada*t58*t48*
        t64*t295*t158+3.633621534719999E-9*t196*t58*t47*t66*t295*t158-
        2.63525031936E-12*grada*t58*t48*t61*t479*t158-2.385148778496E-11*
        t196*t58*t47*t64*t479*t158+5.534025670656E-14*t196*t58*t47*
        t61*t720*t158)*t148+t591*t137;
    d4fdragagbab = 0.0;
    d4fdragaabab = 0.0;
    d4fdragbgbgb = (-2.26996992E-4*t21*gradb*t48*t65*t158+
        1.1404219392E-5*t21*gradb*t48*t60*t63*t158-2.0852059392E-7*
        t21*gradb*t48*t66*t138*t158+1.54841559552E-9*t21*gradb*t48*
        t64*t295*t158-3.95287547904E-12*t21*gradb*t48*t61*t479*t158+
        5.163388416E-6*t21*t204*t48*t63*t155-2.3024748441599998E-7*
        t21*t204*t48*t60*t138*t155+3.633621534719999E-9*t21*t204*t48*
        t66*t295*t155-2.385148778496E-11*t21*t204*t48*t64*t479*t155+
        5.534025670656E-14*t21*t204*t48*t61*t720*t155)*t148+t595*t137;
    d4fdragbgbab = 0.0;
    d4fdragbabab = 0.0;
    d4fdraababab = 0.0;
    d4fdrbrbrbrb = t69*
        (24829.60425438716*t537*t776*t147*t778*rhob-199659.0885685683*
        t775*t776*t147*t777*rhob+24.0*t175*t776*t147*t540*rhob+1157.928594403345*
        t317*t322*t318*t147*t540*rhob-1157.928594403345*t317*t776*
        t147*t539*rhob-12414.80212719358*t537*t322*t318*t147*t539*
        rhob+6.0*t175*t779*t147*t320*rhob+8.0*t175*t542*t179*t147*
        t320*rhob-96.4940495336121*t317*t779*t147*t319*rhob-36.0*t175*
        t322*t318*t147*t319*rhob-128.6587327114828*t317*t542*t179*
        t147*t319*rhob-1.0*t175*t780*t147*t180*rhob+t70*(384.0*t125*
        t81*t82*t90*t99+1920.0*t127*t452*t81*t90*t99-96.0*t185*t81*
        t82*t84*t99-16.0*t127*t557*t81*t84*t99+72.0*t275*t331*t81*
        t84*t99-16.0*t125*t557*t81*t83*t99-480.0*t185*t452*t81*t83*
        t99+120.0*t273*t331*t81*t83*t99+192.0*t125*t127*t331*t81*t99-
        576.0*t125*t185*t275*t81*t99-960.0*t127*t185*t273*t81*t99+
        t81*t83*t84*t782*t99+0.019751789702565*t81*(-384.0*t125*t82+
        t708+t707+t703-1920.0*t127*t452)*t86*t90*t93-0.002929848805881*
        t81*t1*t2*t3*t103*t563*t90*t93+0.005859697611761*t81*t1*t2*
        t3*t240*t336*t90*t93-0.00911508517385*t81*t1*t2*t3*t407*t187*
        t90*t93+0.019751789702565*t81*t85*t86*t782*t93+0.079007158810261*
        t81*t187*t86*t557*t93-0.002929848805881*t81*t1*t2*t3*t103*
        t85*t557*t93+0.118510738215391*t81*t336*t86*t331*t93+0.005859697611761*
        t81*t1*t2*t3*t240*t85*t331*t93-0.008789546417642*t81*t1*t2*
        t3*t103*t187*t331*t93+0.079007158810261*t81*t563*t86*t185*
        t93-0.00911508517385*t81*t1*t2*t3*t407*t85*t185*t93-0.008789546417642*
        t81*t1*t2*t3*t103*t336*t185*t93+0.011719395223522*t81*t1*t2*
        t3*t240*t187*t185*t93-96.0*t133*t81*t82*t84*t90-16.0*t127*
        t463*t81*t84*t90+192.0*t125*t127*t284*t81*t90-960.0*t127*t133*
        t273*t81*t90+4.0*t133*t557*t81*t83*t84+4.0*t185*t463*t81*t83*
        t84+6.0*t284*t331*t81*t83*t84-48.0*t127*t133*t331*t81*t84-
        48.0*t127*t185*t284*t81*t84+144.0*t133*t185*t275*t81*t84-48.0*
        t125*t133*t331*t81*t83-48.0*t125*t185*t284*t81*t83+240.0*t133*
        t185*t273*t81*t83+384.0*t125*t127*t133*t185*t81+t719+t718+
        t717+t716+t715+t714+t713+t712+t711+t705+t697+t696+t695+t694+
        t693+t692+t691+t690+t689+t688+t687+t686+t685+t684+t682+t681+
        t680+t679+t678+t677+t676+t675+t674+t672+t666+t665+t664+t663+
        t662+t661+t660+t659+t658+t657+t656+t655+t653+t652+t651+t650+
        t649+t648+t647+t646+t644-4101.558808403119*t81*t187*t411*t86*
        t412*t90*t413-4101.558808403119*t81*t85*t411*t86*t412*t185*
        t413+415.5781415850207*t81*t187*t411*t86*t416*t90*t246-103.8945353962552*
        t81*t336*t244*t86*t245*t90*t246-207.7890707925104*t81*t187*
        t252*t109*t86*t245*t90*t246+7.70551137522226*t81*t1*t2*t3*
        t103*t187*t244*t245*t90*t246-103.8945353962552*t81*t85*t244*
        t86*t245*t331*t246+415.5781415850207*t81*t85*t411*t86*t416*
        t185*t246-207.7890707925104*t81*t187*t244*t86*t245*t185*t246-
        207.7890707925104*t81*t85*t252*t109*t86*t245*t185*t246+7.70551137522226*
        t81*t1*t2*t3*t103*t85*t244*t245*t185*t246+7.017868076946245*
        t81*t336*t244*t86*t249*t90*t111+14.03573615389249*t81*t187*
        t252*t109*t86*t249*t90*t111-0.520491882373513*t81*t1*t2*t3*
        t103*t187*t244*t249*t90*t111-14.03573615389249*t81*t187*t411*
        t86*t245*t90*t111-2.339289358982082*t81*t187*t431*t86*t110*
        t90*t111-3.508934038473122*t81*t336*t252*t86*t110*t90*t111-
        2.339289358982082*t81*t563*t109*t86*t110*t90*t111+0.260245941186757*
        t81*t1*t2*t3*t103*t187*t252*t110*t90*t111+0.260245941186757*
        t81*t1*t2*t3*t103*t336*t109*t110*t90*t111-0.346994588249009*
        t81*t1*t2*t3*t240*t187*t109*t110*t90*t111-2.339289358982082*
        t81*t85*t109*t86*t110*t557*t111+7.017868076946245*t81*t85*
        t244*t86*t249*t331*t111-3.508934038473122*t81*t85*t252*t86*
        t110*t331*t111-7.017868076946245*t81*t187*t109*t86*t110*t331*
        t111+0.260245941186757*t81*t1*t2*t3*t103*t85*t109*t110*t331*
        t111+14.03573615389249*t81*t187*t244*t86*t249*t185*t111+14.03573615389249*
        t81*t85*t252*t109*t86*t249*t185*t111-0.520491882373513*t81*
        t1*t2*t3*t103*t85*t244*t249*t185*t111-14.03573615389249*t81*
        t85*t411*t86*t245*t185*t111-2.339289358982082*t81*t85*t431*
        t86*t110*t185*t111-7.017868076946245*t81*t187*t252*t86*t110*
        t185*t111-7.017868076946245*t81*t336*t109*t86*t110*t185*t111+
        0.260245941186757*t81*t1*t2*t3*t103*t85*t252*t110*t185*t111-
        0.346994588249009*t81*t1*t2*t3*t240*t85*t109*t110*t185*t111+
        0.520491882373513*t81*t1*t2*t3*t103*t187*t109*t110*t185*t111)-
        96.0*t81*t82*t84*t90*t99-960.0*t127*t273*t81*t90*t99+4.0*t557*
        t81*t83*t84*t99-48.0*t127*t331*t81*t84*t99+144.0*t185*t275*
        t81*t84*t99-48.0*t125*t331*t81*t83*t99+240.0*t185*t273*t81*
        t83*t99+384.0*t125*t127*t185*t81*t99+0.079007158810261*t81*
        t563*t86*t90*t93-0.008789546417642*t81*t1*t2*t3*t103*t336*
        t90*t93+0.011719395223522*t81*t1*t2*t3*t240*t187*t90*t93+0.079007158810261*
        t81*t85*t86*t557*t93+0.237021476430782*t81*t187*t86*t331*t93-
        0.008789546417642*t81*t1*t2*t3*t103*t85*t331*t93+0.237021476430782*
        t81*t336*t86*t185*t93+0.011719395223522*t81*t1*t2*t3*t240*
        t85*t185*t93-0.017579092835283*t81*t1*t2*t3*t103*t187*t185*
        t93-48.0*t127*t284*t81*t84*t90+384.0*t125*t127*t133*t81*t90+
        12.0*t133*t331*t81*t83*t84+12.0*t185*t284*t81*t83*t84-96.0*
        t127*t133*t185*t81*t84-96.0*t125*t133*t185*t81*t83+t640+t639+
        t638+t637+t636+t635+t634+t633+t632+t631+t630+t629+t628+t627+
        t626+t625+t624+t623+t622+t621+t620+t619+t618+t617+t616+t615+
        t614+t613-0.004416653076543*t1*t2*t3*t146*t541+771.9523962688968*
        t317*t538*t147*t540-8276.534751462386*t537*t538*t147*t539-
        0.243531851851852*t1*t2*t3*t175*t179*t180*t321+24.0*t175*t322*
        t179*t147*t320-24.0*t175*t538*t147*t319-385.9761981344484*
        t317*t322*t179*t147*t319-207.7890707925104*t81*t187*t244*t86*
        t245*t90*t246-207.7890707925104*t81*t85*t244*t86*t245*t185*
        t246-4.0*t175*t542*t147*t180-0.547946666666667*t1*t2*t3*t175*
        t318*t320*t178+8.812265465851826*t1*t2*t3*t317*t318*t319*t178+
        0.273973333333333*t1*t2*t3*t175*t322*t180*t178-52.87359279511096*
        t1*t2*t3*t317*t538*t540*t143+566.8874535768302*t1*t2*t3*t537*
        t538*t539*t143-1.64384*t1*t2*t3*t175*t322*t179*t320*t143+1.64384*
        t1*t2*t3*t175*t538*t319*t143+26.43679639755548*t1*t2*t3*t317*
        t322*t179*t319*t143+0.273973333333333*t1*t2*t3*t175*t542*t180*
        t143+14.03573615389249*t81*t187*t244*t86*t249*t90*t111-7.017868076946245*
        t81*t187*t252*t86*t110*t90*t111-7.017868076946245*t81*t336*
        t109*t86*t110*t90*t111+0.520491882373513*t81*t1*t2*t3*t103*
        t187*t109*t110*t90*t111-7.017868076946245*t81*t85*t109*t86*
        t110*t331*t111+14.03573615389249*t81*t85*t244*t86*t249*t185*
        t111-7.017868076946245*t81*t85*t252*t86*t110*t185*t111-14.03573615389249*
        t81*t187*t109*t86*t110*t185*t111+0.520491882373513*t81*t1*
        t2*t3*t103*t85*t109*t110*t185*t111)-6.0*t147*t160*t175*t320*
        t779*rhob-24829.60425438716*t537*t160*t776*t147*t778*rhob+
        199659.0885685683*t775*t160*t776*t147*t777*rhob-24.0*t147*
        t160*t175*t540*t776*rhob-8.0*t147*t160*t175*t179*t320*t542*
        rhob+4.0*t147*t174*t175*t180*t542*rhob-771.9523962688968*t317*
        t174*t538*t147*t540*rhob-1157.928594403345*t317*t160*t322*
        t318*t147*t540*rhob+1157.928594403345*t317*t160*t776*t147*
        t539*rhob+8276.534751462386*t537*t174*t538*t147*t539*rhob+
        12414.80212719358*t537*t160*t322*t318*t147*t539*rhob+24.0*
        t147*t174*t175*t319*t538*rhob+4.0*t147*t175*t179*t180*t536*
        rhob-24.0*t147*t174*t175*t179*t320*t322*rhob+36.0*t147*t160*
        t175*t318*t319*t322*rhob+6.0*t147*t175*t180*t316*t322*rhob-
        12.0*t147*t175*t316*t318*t320*rhob+96.4940495336121*t317*t160*
        t779*t147*t319*rhob+192.9880990672242*t317*t316*t318*t147*
        t319*rhob+385.9761981344484*t317*t174*t322*t179*t147*t319*
        rhob+128.6587327114828*t317*t542*t160*t179*t147*t319*rhob+
        t175*t780*t160*t147*t180*rhob-0.03109*t146*(-54.19066074074075*
        t58*t159*t774+486.930717234568*t156*t157*t773-1317.319734676543*
        t153*t154*t772+1367.216129390618*t149*t151*t771-671.0047916942226*
        t167*t168*t770+168.9185086324939*t308*t309*t769-21.16970474761483*
        t527*t528*t768+1.048765520402964*t765*t766*t767)*t147*rhob-
        0.75*t177*t3*t35*(-0.425809619753086*t58*t165*t774+0.092374628187654*
        t156*t164*t773-0.001229146564583*t153*t163*t772-7.06600220697284E-6*
        t149*t162*t771+2.0448821150909626E-7*t167*t181*t770-1.333071983249383E-9*
        t308*t323*t769+3.67605704051674E-12*t527*t543*t768-3.76616933178785E-15*
        t765*t781*t767)-0.37037037037037*t166*t3*t35*t59+4.0*t190*
        t573+4.0*t191*t572-4.0*t142*t3*t35*t544+4.0*t147*t160*t175*
        t180*t542+0.004416653076543*t1*t2*t3*t146*t160*t541-771.9523962688968*
        t317*t160*t538*t147*t540+8276.534751462386*t537*t160*t538*
        t147*t539+24.0*t147*t160*t175*t319*t538-2.0*t140*t3*t324*t35+
        0.888888888888889*t176*t182*t3*t35+6.0*t343*t344-24.0*t147*
        t160*t175*t179*t320*t322+0.243531851851852*t1*t2*t3*t175*t160*
        t179*t180*t321-0.007571405274074*t1*t2*t3*t146*t174*t321-24.0*
        t175*t174*t318*t147*t320+385.9761981344484*t317*t174*t318*
        t147*t319+385.9761981344484*t317*t160*t322*t179*t147*t319+
        12.0*t175*t174*t322*t147*t180+12.0*t175*t316*t179*t147*t180+
        0.547946666666667*t1*t2*t3*t175*t160*t318*t320*t178-8.812265465851826*
        t1*t2*t3*t317*t160*t318*t319*t178+0.008517830933333*t1*t2*
        t3*t146*t316*t178-0.273973333333333*t1*t2*t3*t175*t160*t322*
        t180*t178-0.547946666666667*t1*t2*t3*t175*t174*t179*t180*t178+
        (2.348055111111111*t58*t68*t774-0.107870908444444*t58*t60*
        t67*t774+0.002289402602667*t58*t66*t65*t774-3.0076421760000003E-5*
        t58*t64*t63*t774+1.18297073664E-7*t58*t61*t138*t774-0.182426424888889*
        t156*t67*t773+0.008785206613333*t156*t60*t65*t773-1.9660550553600003E-4*
        t156*t66*t63*t773+1.7875125227519998E-6*t156*t64*t138*t773-
        5.30845691904E-9*t156*t61*t295*t773+0.002959368192*t153*t65*
        t772-1.4867723059199998E-4*t153*t60*t63*t772+2.71849070592E-6*
        t153*t66*t138*t772-2.0186751467519998E-8*t153*t64*t295*t772+
        5.153378402304E-11*t153*t61*t479*t772-1.2239142912E-5*t149*
        t63*t771+5.457718149119999E-7*t149*t60*t138*t771-8.61302882304E-9*
        t149*t66*t295*t771+5.653685993472E-11*t149*t64*t479*t771-1.3117690478592E-13*
        t149*t61*t720*t771)*t148-0.12436*t146*t536*t147+52.87359279511096*
        t1*t2*t3*t317*t160*t538*t540*t143-566.8874535768302*t1*t2*
        t3*t537*t160*t538*t539*t143+0.008517830933333*t1*t2*t3*t146*
        t536*t143+1.64384*t1*t2*t3*t175*t174*t318*t320*t143+1.64384*
        t1*t2*t3*t175*t160*t322*t179*t320*t143-1.64384*t1*t2*t3*t175*
        t160*t538*t319*t143-26.43679639755548*t1*t2*t3*t317*t174*t318*
        t319*t143-26.43679639755548*t1*t2*t3*t317*t160*t322*t179*t319*
        t143-0.82192*t1*t2*t3*t175*t174*t322*t180*t143-0.82192*t1*
        t2*t3*t175*t316*t179*t180*t143-0.273973333333333*t1*t2*t3*
        t175*t542*t160*t180*t143;
    d4fdrbrbrbga = 3.0*t190*t574+t199*t572+3.0*t343*t345+
        (0.021522218666667*grada*t58*t22*t67*t535-0.00103645696*grada*
        t58*t22*t60*t65*t535+2.3195031552000003E-5*grada*t58*t22*t66*
        t63*t535-2.10886308864E-7*grada*t58*t22*t64*t138*t535+6.2627862528E-10*
        grada*t58*t22*t61*t295*t535-0.001109763072*grada*t156*t22*
        t65*t534+5.5753961472E-5*grada*t156*t22*t60*t63*t534-1.0194340147199999E-6*
        grada*t156*t22*t66*t138*t534+7.57003180032E-9*grada*t156*t22*
        t64*t295*t534-1.932516900864E-11*grada*t156*t22*t61*t479*t534+
        9.179357184E-6*grada*t153*t22*t63*t533-4.09328861184E-7*grada*
        t153*t22*t60*t138*t533+6.459771617279999E-9*grada*t153*t22*
        t66*t295*t533-4.240264495104E-11*grada*t153*t22*t64*t479*t533+
        9.838267858944E-14*grada*t153*t22*t61*t720*t533)*t148;
    d4fdrbrbrbgb = 3.0*t147*t175*t179*t180*t577*rhob-192.9880990672242*
        t317*t205*t538*t147*t540*rhob+2069.133687865597*t537*t205*
        t538*t147*t539*rhob+6.0*t147*t175*t205*t319*t538*rhob+3.0*
        t147*t175*t180*t322*t348*rhob-6.0*t147*t175*t318*t320*t348*
        rhob-6.0*t147*t175*t179*t205*t320*t322*rhob+96.4940495336121*
        t317*t348*t318*t147*t319*rhob+96.4940495336121*t317*t205*t322*
        t179*t147*t319*rhob+t175*t542*t205*t147*t180*rhob-0.03109*
        t146*(19.12611555555556*gradb*t159*t535-235.1038245925926*
        t204*t157*t534+731.1532335407409*t203*t154*t533-830.39030802963*
        t202*t151*t532+436.2914938880002*t200*t168*t531-116.0835633303704*
        t346*t309*t530+15.24521005511112*t575*t528*t529-0.786574140302223*
        t783*t766*t784)*t147*rhob+3.0*t190*t579-3.0*t142*t3*t35*t578+
        t207*t572-0.75*t177*t3*t35*(0.150285748148148*gradb*t165*t535-
        0.044556233007407*t204*t164*t534+7.183945879703701E-4*t203*
        t163*t533+3.659789774696296E-6*t202*t162*t532-1.2948019318328888E-7*
        t200*t181*t531+9.08988524013037E-10*t346*t323*t530-2.64355330275556E-12*
        t575*t543*t529+2.82462699884089E-15*t783*t781*t784)+3.0*t343*
        t350-1.0*t140*t3*t349*t35+0.222222222222222*t176*t206*t3*t35+
        3.0*t147*t175*t180*t205*t322-0.001892851318519*t1*t2*t3*t146*
        t205*t321-6.0*t147*t175*t205*t318*t320+96.4940495336121*t317*
        t205*t318*t147*t319+6.0*t175*t348*t179*t147*t180+0.004258915466667*
        t1*t2*t3*t146*t348*t178-0.136986666666667*t1*t2*t3*t175*t205*
        t179*t180*t178+(-0.828725333333333*gradb*t68*t535+0.038072085333333*
        gradb*t60*t67*t535-8.08024448E-4*gradb*t66*t65*t535+1.061520768E-5*
        gradb*t64*t63*t535-4.1751908352E-8*gradb*t61*t138*t535+0.095312682666667*
        t204*t67*t534-0.00459002368*t204*t60*t65*t534+1.0272085401600001E-4*
        t204*t66*t63*t534-9.339250821119999E-7*t204*t64*t138*t534+
        2.77351962624E-9*t204*t61*t295*t534-0.001916863488*t203*t65*
        t533+9.630229708800001E-5*t203*t60*t63*t533-1.7608405708799998E-6*
        t203*t66*t138*t533+1.3075509473279997E-8*t203*t64*t295*t533-
        3.337983737856E-11*t203*t61*t479*t533+9.179357184E-6*t202*
        t63*t532-4.09328861184E-7*t202*t60*t138*t532+6.459771617279999E-9*
        t202*t66*t295*t532-4.240264495104E-11*t202*t64*t479*t532+9.838267858944E-14*
        t202*t61*t720*t532)*t148-0.09327*t146*t577*t147+0.0063883732*
        t1*t2*t3*t146*t577*t143+0.41096*t1*t2*t3*t175*t205*t318*t320*
        t143-6.60919909938887*t1*t2*t3*t317*t205*t318*t319*t143-0.20548*
        t1*t2*t3*t175*t205*t322*t180*t143-0.41096*t1*t2*t3*t175*t348*
        t179*t180*t143;
    d4fdrbrbrbab = 0.0;
    d4fdrbrbgaga = 2.0*t190*t580+t354*t343+(-0.004611904*
        t58*t22*t67*t315+2.2209792E-4*t58*t22*t60*t65*t315+2.77440768E-4*
        t21*t58*t31*t65*t315-4.970363904E-6*t58*t22*t66*t63*t315-1.3938490368000001E-5*
        t21*t58*t31*t60*t63*t315+4.5189923328E-8*t58*t22*t64*t138*
        t315+2.5485850368E-7*t21*t58*t31*t66*t138*t315-1.3420256256E-10*
        t58*t22*t61*t295*t315-1.89250795008E-9*t21*t58*t31*t64*t295*
        t315+4.83129225216E-12*t21*t58*t31*t61*t479*t315+1.0088755199999999E-4*
        t156*t22*t65*t314-5.068541952E-6*t156*t22*t60*t63*t314-6.884517888E-6*
        t21*t156*t31*t63*t314+9.267581951999999E-8*t156*t22*t66*t138*
        t314+3.06996645888E-7*t21*t156*t31*t60*t138*t314-6.8818470912E-10*
        t156*t22*t64*t295*t314-4.844828712959999E-9*t21*t156*t31*t66*
        t295*t314+1.75683354624E-12*t156*t22*t61*t479*t314+3.180198371328E-11*
        t21*t156*t31*t64*t479*t314-7.378700894208E-14*t21*t156*t31*
        t61*t720*t314)*t148;
    d4fdrbrbgagb = 2.0*t190*t581+t355*t343+(-0.009223808*
        grada*gradb*t22*t67*t315+4.4419584E-4*grada*gradb*t22*t60*
        t65*t315-9.940727808E-6*grada*gradb*t22*t66*t63*t315+9.0379846656E-8*
        grada*gradb*t22*t64*t138*t315-2.6840512512E-10*grada*gradb*
        t22*t61*t295*t315+6.809909759999999E-4*grada*t204*t22*t65*
        t314-3.421265817600001E-5*grada*t204*t22*t60*t63*t314+6.2556178176E-7*
        grada*t204*t22*t66*t138*t314-4.64524678656E-9*grada*t204*t22*
        t64*t295*t314+1.185862643712E-11*grada*t204*t22*t61*t479*t314-
        6.884517888E-6*grada*t203*t22*t63*t313+3.06996645888E-7*grada*
        t203*t22*t60*t138*t313-4.844828712959999E-9*grada*t203*t22*
        t66*t295*t313+3.180198371328E-11*grada*t203*t22*t64*t479*t313-
        7.378700894208E-14*grada*t203*t22*t61*t720*t313)*t148;
    d4fdrbrbgaab = 0.0;
    d4fdrbrbgbgb = 2.0*t147*t175*t179*t180*t583*rhob-2.0*
        t147*t175*t318*t320*t357*rhob+32.1646831778707*t317*t357*t318*
        t147*t319*rhob+t175*t357*t322*t147*t180*rhob-0.03109*t146*
        (-4.098453333333334*t159*t315+96.92401066666667*t58*t157*t314-
        374.0463616000001*t156*t154*t313+480.9190940444446*t153*t151*
        t312-275.8230785137779*t149*t168*t311+78.55410972444449*t167*
        t309*t310-10.90718378666667*t308*t528*t576+0.589930605226667*
        t527*t766*t785)*t147*rhob+2.0*t190*t585-2.0*t142*t3*t35*t584-
        0.333333333333333*t140*t3*t35*t358+2.0*t147*t175*t179*t180*
        t357-0.75*t177*t3*(-0.032204088888889*t165*t315+0.018344655644444*
        t58*t164*t314-3.913520014222221E-4*t156*t163*t313-1.6500254492444446E-6*
        t153*t162*t312+7.904569080035555E-8*t149*t181*t311-6.09017295303111E-10*
        t167*t323*t310+1.88809041237333E-12*t308*t543*t576-2.11847024913067E-15*
        t527*t781*t785)*t35+t359*t343+0.001419638488889*t1*t2*t3*t146*
        t357*t178+(0.177584*t68*t315-0.008158304*t60*t67*t315+1.73148096E-4*
        t66*t65*t315-2.27468736E-6*t64*t63*t315+8.946837503999999E-9*
        t61*t138*t315-0.043184192*t58*t67*t314+0.00207964416*t58*t60*
        t65*t314-4.654068019199999E-5*t58*t66*t63*t314+4.23142009344E-7*
        t58*t64*t138*t314-1.25662399488E-9*t58*t61*t295*t314+0.001185428736*
        t156*t65*t313-5.955536793600001E-5*t156*t60*t63*t313+1.08894087936E-6*
        t156*t66*t138*t313-8.08617033216E-9*t156*t64*t295*t313+2.064279416832E-11*
        t156*t61*t479*t313-6.884517888E-6*t153*t63*t312+3.06996645888E-7*
        t153*t60*t138*t312-4.844828712959999E-9*t153*t66*t295*t312+
        3.180198371328E-11*t153*t64*t479*t312-7.378700894208E-14*t153*
        t61*t720*t312)*t148-0.06218*t146*t583*t147+0.004258915466667*
        t1*t2*t3*t146*t583*t143-0.136986666666667*t1*t2*t3*t175*t357*
        t179*t180*t143;
    d4fdrbrbgbab = 0.0;
    d4fdrbrbabab = 0.0;
    d4fdrbgagaga = (-2.26996992E-4*grada*t58*t31*t65*t173+
        1.1404219392E-5*grada*t58*t31*t60*t63*t173+5.163388416E-6*
        t196*t58*t28*t63*t173-2.0852059392E-7*grada*t58*t31*t66*t138*
        t173-2.3024748441599998E-7*t196*t58*t28*t60*t138*t173+1.54841559552E-9*
        grada*t58*t31*t64*t295*t173+3.633621534719999E-9*t196*t58*
        t28*t66*t295*t173-3.95287547904E-12*grada*t58*t31*t61*t479*
        t173-2.385148778496E-11*t196*t58*t28*t64*t479*t173+5.534025670656E-14*
        t196*t58*t28*t61*t720*t173)*t148+t589*t190;
    d4fdrbgagagb = (0.002515584*gradb*t22*t67*t173-1.2114432E-4*
        gradb*t22*t60*t65*t173-1.51331328E-4*t21*gradb*t31*t65*t173+
        2.711107584E-6*gradb*t22*t66*t63*t173+7.602812928E-6*t21*gradb*
        t31*t60*t63*t173-2.4649049087999997E-8*gradb*t22*t64*t138*
        t173-1.3901372927999998E-7*t21*gradb*t31*t66*t138*t173+7.320139776E-11*
        gradb*t22*t61*t295*t173+1.03227706368E-9*t21*gradb*t31*t64*
        t295*t173-2.63525031936E-12*t21*gradb*t31*t61*t479*t173-7.5665664E-5*
        t204*t22*t65*t172+3.801406464E-6*t204*t22*t60*t63*t172+5.163388416E-6*
        t21*t204*t31*t63*t172-6.950686463999999E-8*t204*t22*t66*t138*
        t172-2.3024748441599998E-7*t21*t204*t31*t60*t138*t172+5.1613853184E-10*
        t204*t22*t64*t295*t172+3.633621534719999E-9*t21*t204*t31*t66*
        t295*t172-1.31762515968E-12*t204*t22*t61*t479*t172-2.385148778496E-11*
        t21*t204*t31*t64*t479*t172+5.534025670656E-14*t21*t204*t31*
        t61*t720*t172)*t148+t590*t190;
    d4fdrbgagaab = 0.0;
    d4fdrbgagbgb = (0.002515584*grada*t22*t67*t173-1.2114432E-4*
        grada*t22*t60*t65*t173+2.711107584E-6*grada*t22*t66*t63*t173-
        2.4649049087999997E-8*grada*t22*t64*t138*t173+7.320139776E-11*
        grada*t22*t61*t295*t173-3.7832832E-4*grada*t58*t22*t65*t172+
        1.9007032319999998E-5*grada*t58*t22*t60*t63*t172-3.475343231999999E-7*
        grada*t58*t22*t66*t138*t172+2.580692659199999E-9*grada*t58*
        t22*t64*t295*t172-6.5881257984E-12*grada*t58*t22*t61*t479*
        t172+5.163388416E-6*grada*t156*t22*t63*t171-2.3024748441599998E-7*
        grada*t156*t22*t60*t138*t171+3.633621534719999E-9*grada*t156*
        t22*t66*t295*t171-2.385148778496E-11*grada*t156*t22*t64*t479*
        t171+5.534025670656E-14*grada*t156*t22*t61*t720*t171)*t148+
        t591*t190;
    d4fdrbgagbab = 0.0;
    d4fdrbgaabab = 0.0;
    d4fdrbgbgbgb = t175*t593*t179*t147*t180*rhob-0.03109*
        t146*(-30.866432*gradb*t157*t172+171.2000512*t204*t154*t171-
        262.3242956800001*t203*t151*t170+168.5881405440001*t202*t168*
        t169-52.21287526400003*t200*t309*t347+7.745840742400006*t346*
        t528*t582-0.44244795392*t575*t766*t786)*t147*rhob-1.0*t142*
        t3*t35*t594-0.75*(-0.005833728*gradb*t164*t172+1.9271884799999995E-4*
        t204*t163*t171+5.721178112000008E-7*t203*t162*t170-4.609925447680001E-8*
        t202*t181*t169+3.99610216448E-10*t200*t323*t347-1.338043793408E-12*
        t346*t543*t582+1.588852686848E-15*t575*t781*t786)*t177*t3*
        t35+t595*t190+(0.015093504*gradb*t67*t172-7.2686592E-4*gradb*
        t60*t65*t172+1.6266645504E-5*gradb*t66*t63*t172-1.47894294528E-7*
        gradb*t64*t138*t172+4.3920838656E-10*gradb*t61*t295*t172-6.809909760000001E-4*
        t204*t65*t171+3.4212658176E-5*t204*t60*t63*t171-6.255617817599999E-7*
        t204*t66*t138*t171+4.64524678656E-9*t204*t64*t295*t171-1.185862643712E-11*
        t204*t61*t479*t171+5.163388416E-6*t203*t63*t170-2.3024748441599998E-7*
        t203*t60*t138*t170+3.633621534719999E-9*t203*t66*t295*t170-
        2.385148778496E-11*t203*t64*t479*t170+5.534025670656E-14*t203*
        t61*t720*t170)*t148-0.03109*t146*t593*t147+0.002129457733333*
        t1*t2*t3*t146*t593*t143;
    d4fdrbgbgbab = 0.0;
    d4fdrbgbabab = 0.0;
    d4fdrbababab = 0.0;
    d4fdgagagaga = -0.03109*t19*(5.787456*t30*t31-66.5150016*
        t21*t27*t28+132.24726912*t29*t24*t25-98.82812620800004*t26*
        t43*t193+33.97190553600001*t20*t209*t351-5.453842022400003*
        t42*t361*t586+0.33183596544*t208*t597*t787)*t34*rhoa-0.75*
        t3*(0.001093824*t39*t31-8.102015999999999E-5*t21*t38*t28-7.762329600000034E-8*
        t29*t37*t25+2.5326796800000004E-8*t26*t56*t193-2.55606226944E-10*
        t20*t223*t351+9.39695013888E-13*t42*t376*t586-1.191639515136E-15*
        t208*t612*t787)*t35*t52+(-0.002830032*t31*t67+1.3628736E-4*
        t31*t60*t65+3.40495488E-4*t21*t28*t65-3.049996032E-6*t31*t66*
        t63-1.7106329088000003E-5*t21*t28*t60*t63-3.872541312000001E-6*
        t29*t25*t63+2.7730180224E-8*t31*t64*t138+3.1278089088E-7*t21*
        t28*t66*t138+1.7268561331200002E-7*t29*t25*t60*t138-8.235157248E-11*
        t31*t61*t295-2.32262339328E-9*t21*t28*t64*t295-2.72521615104E-9*
        t29*t25*t66*t295+5.92931321856E-12*t21*t28*t61*t479+1.788861583872E-11*
        t29*t25*t64*t479-4.150519252992E-14*t29*t25*t61*t720)*t148;
    d4fdgagagagb = (1.70247744E-4*grada*gradb*t31*t65*t59-
        8.553164544E-6*grada*gradb*t31*t60*t63*t59-3.872541312000001E-6*
        t196*gradb*t28*t63*t59+1.5639044544E-7*grada*gradb*t31*t66*
        t138*t59+1.7268561331200002E-7*t196*gradb*t28*t60*t138*t59-
        1.16131169664E-9*grada*gradb*t31*t64*t295*t59-2.72521615104E-9*
        t196*gradb*t28*t66*t295*t59+2.96465660928E-12*grada*gradb*
        t31*t61*t479*t59+1.788861583872E-11*t196*gradb*t28*t64*t479*
        t59-4.150519252992E-14*t196*gradb*t28*t61*t720*t59)*t148;
    d4fdgagagaab = 0.0;
    d4fdgagagbgb = (-
        9.43344E-4*t22*t67*t59+4.542912E-5*t22*t60*t65*t59+5.674924800000001E-5*
        t21*t31*t65*t59-1.016665344E-6*t22*t66*t63*t59-2.851054848E-6*
        t21*t31*t60*t63*t59+9.243393408E-9*t22*t64*t138*t59+5.213014848E-8*
        t21*t31*t66*t138*t59-2.745052416E-11*t22*t61*t295*t59-3.8710389888E-10*
        t21*t31*t64*t295*t59+9.8821886976E-13*t21*t31*t61*t479*t59+
        5.674924800000001E-5*t58*t22*t65*t158-2.851054848E-6*t58*t22*
        t60*t63*t158-3.872541312000001E-6*t21*t58*t31*t63*t158+5.213014848E-8*
        t58*t22*t66*t138*t158+1.7268561331200002E-7*t21*t58*t31*t60*
        t138*t158-3.8710389888E-10*t58*t22*t64*t295*t158-2.72521615104E-9*
        t21*t58*t31*t66*t295*t158+9.8821886976E-13*t58*t22*t61*t479*
        t158+1.788861583872E-11*t21*t58*t31*t64*t479*t158-4.150519252992E-14*
        t21*t58*t31*t61*t720*t158)*t148;
    d4fdgagagbab = 0.0;
    d4fdgagaabab = 0.0;
    d4fdgagbgbgb = (1.70247744E-4*grada*gradb*t22*t65*t158-
        8.553164544000002E-6*grada*gradb*t22*t60*t63*t158+1.5639044544E-7*
        grada*gradb*t22*t66*t138*t158-1.16131169664E-9*grada*gradb*
        t22*t64*t295*t158+2.96465660928E-12*grada*gradb*t22*t61*t479*
        t158-3.872541312000001E-6*grada*t204*t22*t63*t155+1.7268561331200002E-7*
        grada*t204*t22*t60*t138*t155-2.72521615104E-9*grada*t204*t22*
        t66*t295*t155+1.788861583872E-11*grada*t204*t22*t64*t479*t155-
        4.150519252992E-14*grada*t204*t22*t61*t720*t155)*t148;
    d4fdgagbgbab = 0.0;
    d4fdgagbabab = 0.0;
    d4fdgaababab = 0.0;
    d4fdgbgbgbgb = -0.03109*t146*(5.787456*t157*t158-66.5150016*
        t58*t154*t155+132.24726912*t156*t151*t152-98.82812620800004*
        t153*t168*t201+33.97190553600001*t149*t309*t356-5.453842022400003*
        t167*t528*t592+0.33183596544*t308*t766*t788)*t147*rhob-0.75*
        (0.001093824*t164*t158-8.102015999999999E-5*t58*t163*t155-
        7.762329600000034E-8*t156*t162*t152+2.5326796800000004E-8*
        t153*t181*t201-2.55606226944E-10*t149*t323*t356+9.39695013888E-13*
        t167*t543*t592-1.191639515136E-15*t308*t781*t788)*t177*t3*
        t35+(-0.002830032*t67*t158+1.3628736E-4*t60*t65*t158-3.049996032E-6*
        t66*t63*t158+2.7730180224E-8*t64*t138*t158-8.235157248E-11*
        t61*t295*t158+3.40495488E-4*t58*t65*t155-1.7106329088000003E-5*
        t58*t60*t63*t155+3.1278089088E-7*t58*t66*t138*t155-2.32262339328E-9*
        t58*t64*t295*t155+5.92931321856E-12*t58*t61*t479*t155-3.872541312000001E-6*
        t156*t63*t152+1.7268561331200002E-7*t156*t60*t138*t152-2.72521615104E-9*
        t156*t66*t295*t152+1.788861583872E-11*t156*t64*t479*t152-4.150519252992E-14*
        t156*t61*t720*t152)*t148;
    d4fdgbgbgbab = 0.0;
    d4fdgbgbabab = 0.0;
    d4fdgbababab = 0.0;
    d4fdabababab = 0.0;


    ds->df1000 += factor*dfdra;
    ds->df0100 += factor*dfdrb;
    ds->df0010 += factor*dfdga;
    ds->df0001 += factor*dfdgb;
    ds->df00001+= factor*dfdgab;

    ds->df2000 += factor*d2fdrara;
    ds->df1100 += factor*d2fdrarb;
    ds->df1010 += factor*d2fdraga;
    ds->df1001 += factor*d2fdragb;
    ds->df10001+= factor*d2fdraab;
    ds->df0200 += factor*d2fdrbrb;
    ds->df0110 += factor*d2fdrbga;
    ds->df0101 += factor*d2fdrbgb;
    ds->df01001+= factor*d2fdrbgab;
    ds->df0020 += factor*d2fdgaga;
    ds->df0011 += factor*d2fdgagb;
    ds->df00101+= factor*d2fdgagab;
    ds->df0002 += factor*d2fdgbgb;
    ds->df00011+= factor*d2fdgbgab;
    ds->df00002+= factor*d2fdgabgab;

    ds->df3000 += factor*d3fdrarara;
    ds->df2100  += factor*d3fdrararb;
    ds->df2010  += factor*d3fdraraga;
    ds->df2001  += factor*d3fdraragb;
    ds->df20001 += factor*d3fdraraab;
    ds->df1200  += factor*d3fdrarbrb;
    ds->df1110  += factor*d3fdrarbga;
    ds->df1101  += factor*d3fdrarbgb;
    ds->df11001 += factor*d3fdrarbab;
    ds->df1020  += factor*d3fdragaga;
    ds->df1011  += factor*d3fdragagb;
    ds->df10101 += factor*d3fdragaab;
    ds->df1002  += factor*d3fdragbgb;
    ds->df10011 += factor*d3fdragbab;
    ds->df10002 += factor*d3fdraabab;
    ds->df0300  += factor*d3fdrbrbrb;
    ds->df0210  += factor*d3fdrbrbga;
    ds->df0201  += factor*d3fdrbrbgb;
    ds->df02001 += factor*d3fdrbrbab;
    ds->df0120  += factor*d3fdrbgaga;
    ds->df0111  += factor*d3fdrbgagb;
    ds->df01101 += factor*d3fdrbgaab;
    ds->df0102  += factor*d3fdrbgbgb;
    ds->df01011 += factor*d3fdrbgbab;
    ds->df01002 += factor*d3fdrbabab;
    ds->df0030  += factor*d3fdgagaga;
    ds->df0021  += factor*d3fdgagagb;
    ds->df00201 += factor*d3fdgagaab;
    ds->df0012  += factor*d3fdgagbgb;
    ds->df00111 += factor*d3fdgagbab;
    ds->df00102 += factor*d3fdgaabab;
    ds->df0003  += factor*d3fdgbgbgb;
    ds->df00021 += factor*d3fdgbgbab;
    ds->df00012 += factor*d3fdgbabab;
    ds->df00003 += factor*d3fdababab;

    ds->df4000  += factor*d4fdrararara;
    ds->df3100  += factor*d4fdrarararb;
    ds->df3010  += factor*d4fdrararaga;
    ds->df3001  += factor*d4fdrararagb;
    ds->df30001 += factor*d4fdrararaab;
    ds->df2200  += factor*d4fdrararbrb;
    ds->df2110  += factor*d4fdrararbga;
    ds->df2101  += factor*d4fdrararbgb;
    ds->df21001 += factor*d4fdrararbab;
    ds->df2020  += factor*d4fdraragaga;
    ds->df2011  += factor*d4fdraragagb;
    ds->df20101 += factor*d4fdraragaab;
    ds->df2002  += factor*d4fdraragbgb;
    ds->df20011 += factor*d4fdraragbab;
    ds->df20002 += factor*d4fdraraabab;
    ds->df1300  += factor*d4fdrarbrbrb;
    ds->df1210  += factor*d4fdrarbrbga;
    ds->df1201  += factor*d4fdrarbrbgb;
    ds->df12001 += factor*d4fdrarbrbab;
    ds->df1120  += factor*d4fdrarbgaga;
    ds->df1111  += factor*d4fdrarbgagb;
    ds->df11101 += factor*d4fdrarbgaab;
    ds->df1102  += factor*d4fdrarbgbgb;
    ds->df11011 += factor*d4fdrarbgbab;
    ds->df11002 += factor*d4fdrarbabab;
    ds->df1030  += factor*d4fdragagaga;
    ds->df1021  += factor*d4fdragagagb;
    ds->df10201 += factor*d4fdragagaab;
    ds->df1012  += factor*d4fdragagbgb;
    ds->df10111 += factor*d4fdragagbab;
    ds->df10102 += factor*d4fdragaabab;
    ds->df1003  += factor*d4fdragbgbgb;
    ds->df10021 += factor*d4fdragbgbab;
    ds->df10012 += factor*d4fdragbabab;
    ds->df10003 += factor*d4fdraababab;
    ds->df0400  += factor*d4fdrbrbrbrb;
    ds->df0310  += factor*d4fdrbrbrbga;
    ds->df0301  += factor*d4fdrbrbrbgb;
    ds->df03001 += factor*d4fdrbrbrbab;
    ds->df0220  += factor*d4fdrbrbgaga;
    ds->df0211  += factor*d4fdrbrbgagb;
    ds->df02101 += factor*d4fdrbrbgaab;
    ds->df0202  += factor*d4fdrbrbgbgb;
    ds->df02011 += factor*d4fdrbrbgbab;
    ds->df02002 += factor*d4fdrbrbabab;
    ds->df0130  += factor*d4fdrbgagaga;
    ds->df0121  += factor*d4fdrbgagagb;
    ds->df01201 += factor*d4fdrbgagaab;
    ds->df0112  += factor*d4fdrbgagbgb;
    ds->df01111 += factor*d4fdrbgagbab;
    ds->df01102 += factor*d4fdrbgaabab;
    ds->df0103  += factor*d4fdrbgbgbgb;
    ds->df01021 += factor*d4fdrbgbgbab;
    ds->df01012 += factor*d4fdrbgbabab;
    ds->df01003 += factor*d4fdrbababab;
    ds->df0040  += factor*d4fdgagagaga;
    ds->df0031  += factor*d4fdgagagagb;
    ds->df00301 += factor*d4fdgagagaab;
    ds->df0022  += factor*d4fdgagagbgb;
    ds->df00211 += factor*d4fdgagagbab;
    ds->df00202 += factor*d4fdgagaabab;
    ds->df0013  += factor*d4fdgagbgbgb;
    ds->df00121 += factor*d4fdgagbgbab;
    ds->df00112 += factor*d4fdgagbabab;
    ds->df00103 += factor*d4fdgaababab;
    ds->df0004  += factor*d4fdgbgbgbgb;
    ds->df00031 += factor*d4fdgbgbgbab;
    ds->df00022 += factor*d4fdgbgbabab;
    ds->df00013 += factor*d4fdgbababab;
    ds->df00004 += factor*d4fdabababab;

}
